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__