File Coverage

blib/lib/Ascii/Text/Font/Block.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Ascii::Text::Font::Block;
2              
3 1     1   1350 use Rope;
  1         3  
  1         8  
4 1     1   451 use Rope::Autoload;
  1         3  
  1         38  
5              
6             extends 'Ascii::Text::Font';
7              
8             property character_height => (
9             initable => 0,
10             writable => 0,
11             value => 11
12             );
13              
14             function character_A => sub {
15             my @character = $_[0]->default_character(20);
16             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
17             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
18             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
19             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
20             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
21             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
22             $character[2][9] = $character[2][10] = $character[7][4] = $character[7][5] = $character[7][6] = $character[7][7] = $character[6][4] = $character[6][15] = $character[7][12] = $character[7][13] = $character[7][14] = $character[7][15] = $character[5][8] = $character[5][9] = $character[5][10] = $character[5][11] = '_';
23             $character[3][8] = $character[4][7] = $character[5][6] = $character[6][5] = $character[4][9] = $character[6][7] = '/';
24             $character[3][11] = $character[4][12] = $character[5][13] = $character[6][14] = $character[6][12] = $character[4][10] = '\\';
25             $character[7][3] = $character[7][8] = $character[7][11] = $character[7][16] = '|';
26             return \@character;
27             };
28              
29             function character_B => sub {
30             my @character = $_[0]->default_character(20);
31             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = $character[5][13] = '.';
32             $character[1][0] = $character[1][19] = $character[2][0] = $character[2][2] = $character[2][17] = $character[2][19] = $character[3][0] = $character[3][2] = $character[3][5] = $character[3][17] = $character[3][19] = $character[4][0] = $character[4][2] = $character[4][7] = $character[4][9] = $character[4][13] = $character[4][17] = $character[4][19] = $character[5][0] = $character[5][2] = $character[5][7] = $character[5][17] = $character[5][19] = $character[6][0] = $character[6][2] = $character[6][7] = $character[6][9] = $character[6][14] = $character[6][17] = $character[6][19] = $character[7][0] = $character[7][2] = $character[7][5] = $character[7][17] = $character[7][19] = $character[8][0] = $character[8][2] = $character[8][17] = $character[8][19] = $character[9][0] = $character[9][19] = '|';
33             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][8] = $character[9][9] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = '-';
34             $character[2][6] = $character[2][7] = $character[2][8] = $character[2][9] = $character[2][10] = $character[2][11] = $character[3][6] = $character[3][10] = $character[4][10] = $character[5][10] = $character[5][11] = $character[6][6] = $character[6][10] = $character[6][11] = $character[7][6] = $character[7][7] = $character[7][8] = $character[7][9] = $character[7][10] = $character[7][11] = $character[7][12] = '_';
35             $character[7][13] = '/';
36             $character[3][12] = '\\';
37             $character[5][12] = $character[9][2] = $character[9][17] = $character[10][1] = $character[10][18] = '\'';
38             $character[4][11] = $character[6][12] = ')';
39             return \@character;
40             };
41              
42             function character_C => sub {
43             my @character = $_[0]->default_character(20);
44             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
45             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
46             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
47             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
48              
49             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = $character[10][1] = $character[10][18] = '.';
50             $character[10][1] = $character[9][2] = $character[9][17] = $character[10][18] = '\'';
51              
52             $character[2][8] = $character[2][9] = $character[2][10] = $character[2][11] = $character[2][12] = $character[2][13] = $character[3][9] = $character[3][10] = $character[3][11] = $character[4][13] = $character[6][9] = $character[6][10] = $character[6][11] = $character[7][9] = $character[7][10] = $character[7][11] = $character[7][12] = $character[7][13] = '_';
53             $character[3][14] = $character[4][14] = $character[5][5] = $character[5][7] = '|';
54             $character[4][12] = $character[6][5] = $character[6][14] = '\\';
55             $character[4][5] = '/';
56             $character[3][6] = $character[4][7] = $character[6][8] = $character[6][12] = $character[7][7] = $character[7][13] = '.';
57             $character[3][7] = $character[4][8] = $character[6][13] = $character[7][14] = '\'';
58             $character[6][7] = $character[7][6] = '`';
59             return \@character;
60             };
61              
62             function character_D => sub {
63             my @character = $_[0]->default_character(20);
64             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
65             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
66             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
67             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
68              
69             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = $character[10][1] = $character[10][18] = '.';
70             $character[10][1] = $character[9][2] = $character[9][17] = $character[10][18] = '\'';
71              
72             $character[2][5] = $character[2][6] = $character[2][7] = $character[2][8] = $character[2][9] = $character[2][10] = $character[2][11] = $character[2][12] = $character[3][5] = $character[3][9] = $character[3][10] = $character[3][11] = $character[7][5] = $character[7][6] = $character[7][7] = $character[7][8] = $character[7][9] = $character[7][10] = $character[7][11] = $character[7][12] = $character[6][5] = $character[6][9] = $character[6][10] = $character[6][11] = '_';
73             $character[3][4] = $character[4][6] = $character[4][8] = $character[5][6] = $character[5][8] = $character[5][13] = $character[5][15] = $character[6][6] = $character[6][8] = $character[7][4] = '|';
74             $character[3][14] = $character[4][13] = $character[6][12] = $character[7][13] = '.';
75             $character[4][15] = '\\';
76             $character[6][15] = '/';
77             $character[6][13] = $character[7][14] = '\'';
78             $character[3][13] = $character[4][12] = '`';
79             return \@character;
80             };
81              
82             function character_E => sub {
83             my @character = $_[0]->default_character(20);
84             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
85             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
86             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
87             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
88             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
89             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
90              
91             $character[2][5] = $character[2][6] = $character[2][7] = $character[2][8] = $character[2][9] = $character[2][10] = $character[2][11] = $character[2][12] = $character[2][13] = $character[7][5] = $character[7][6] = $character[7][7] = $character[7][8] = $character[7][9] = $character[7][10] = $character[7][11] = $character[7][12] = $character[7][13] = $character[3][5] = $character[3][9] = $character[3][10] = $character[3][11] = $character[4][9] = $character[4][13] = $character[5][9] = $character[5][13] = $character[6][5] = $character[6][9] = $character[6][10] = $character[6][11] = '_';
92             $character[3][4] = $character[3][14] = $character[4][6] = $character[4][8] = $character[4][14] = $character[5][6] = $character[5][10] = $character[6][6] = $character[6][8] = $character[6][14] = $character[7][4] = $character[7][14] = '|';
93             $character[4][12] = '\\';
94             $character[6][12] = '/';
95             return \@character;
96             };
97              
98             function character_F => sub {
99             my @character = $_[0]->default_character(20);
100             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
101             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
102             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
103             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
104             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
105             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
106              
107             $character[2][5] = $character[2][6] = $character[2][7] = $character[2][8] = $character[2][9] = $character[2][10] = $character[2][11] = $character[2][12] = $character[2][13] = $character[7][5] = $character[7][6] = $character[7][7] = $character[7][8] = $character[7][9] = $character[3][5] = $character[3][9] = $character[3][10] = $character[3][11] = $character[4][9] = $character[4][13] = $character[5][9] = $character[6][5] = $character[6][9] = '_';
108             $character[3][4] = $character[3][14] = $character[4][6] = $character[4][8] = $character[4][14] = $character[5][6] = $character[5][10] = $character[6][6] = $character[6][8] = $character[7][4] = $character[7][10] = '|';
109             $character[4][12] = '\\';
110             return \@character;
111             };
112              
113             function character_G => sub {
114             my @character = $_[0]->default_character(20);
115             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
116             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
117             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
118             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
119             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
120             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
121              
122             $character[7][7] = $character[7][8] = $character[7][9] = $character[7][10] = $character[7][11] = $character[5][11] = $character[5][12] = $character[5][13] = $character[5][14] = $character[6][14] = $character[6][8] = $character[6][9] = $character[6][10] = $character[4][12] = $character[2][7] = $character[2][8] = $character[2][9] = $character[2][10] = $character[2][11] = $character[2][12] = $character[3][8] = $character[3][9] = $character[3][10] = '_';
123             $character[3][13] = $character[4][13] = $character[5][4] = $character[5][6] = $character[6][15] = '|';
124             $character[3][6] = $character[4][7] = $character[7][13] = '\'';
125             $character[4][4] = '/';
126             $character[6][4] = $character[4][11] = '\\';
127             $character[3][5] = $character[4][6] = $character[6][7] = $character[7][6] = $character[7][12] = '.';
128             $character[7][5] = $character[6][6] = '`';
129             $character[6][11] = ']';
130             return \@character;
131             };
132              
133             function character_H => sub {
134             my @character = $_[0]->default_character(20);
135             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
136             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
137             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
138             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
139             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
140             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
141              
142             $character[2][5] = $character[2][6] = $character[2][7] = $character[2][8] = $character[2][11] = $character[2][12] = $character[2][13] = $character[2][14] = $character[3][5] = $character[3][14] = $character[4][9] = $character[4][10] = $character[7][5] = $character[7][6] = $character[7][7] = $character[7][8] = $character[7][11] = $character[7][12] = $character[7][13] = $character[7][14] = $character[6][5] = $character[6][14] = $character[5][9] = $character[5][10] = '_';
143             $character[3][4] = $character[3][9] = $character[3][10] = $character[3][15] = $character[4][6] = $character[4][8] = $character[4][11] = $character[4][13] = $character[5][13] = $character[5][6] = $character[6][6] = $character[6][8] = $character[6][11] = $character[6][13] = $character[7][4] = $character[7][9] = $character[7][10] = $character[7][15] = '|';
144             return \@character;
145             };
146              
147             function character_I => sub {
148             my @character = $_[0]->default_character(20);
149             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
150             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
151             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
152             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
153              
154             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = $character[10][1] = $character[10][18] = '.';
155             $character[10][1] = $character[9][2] = $character[9][17] = $character[10][18] = '\'';
156              
157             $character[2][8] = $character[2][9] = $character[2][10] = $character[2][11] = $character[2][12] = $character[3][8] = $character[3][12] = $character[6][8] = $character[6][12] = $character[7][8] = $character[7][9] = $character[7][10] = $character[7][11] = $character[7][12] = '_';
158             $character[3][7] = $character[3][13] = $character[4][9] = $character[4][11] = $character[5][9] = $character[5][11] = $character[6][9] = $character[6][11] = $character[7][7] = $character[7][13] = '|';
159             return \@character;
160             };
161              
162             function character_J => sub {
163             my @character = $_[0]->default_character(20);
164             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
165             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
166             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
167             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
168             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
169             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
170              
171             $character[2][8] = $character[2][9] = $character[2][10] = $character[2][11] = $character[2][12] = $character[3][8] = $character[3][12] = $character[5][6] = $character[6][8] = $character[7][7] = $character[7][8] = $character[7][9] = '_';
172             $character[3][7] = $character[3][13] = $character[4][9] = $character[4][11] = $character[5][9] = $character[5][11] = $character[6][5] = $character[6][7] = $character[6][11] = '|';
173             $character[6][9] = $character[7][11] = '\'';
174             $character[7][5] = '`';
175             $character[7][6] = $character[7][10] = '.';
176             return \@character;
177             };
178              
179             function character_K => sub {
180             my @character = $_[0]->default_character(20);
181             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
182             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][8] = $character[9][9] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = '-';
183             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = $character[5][12] = '.';
184             $character[9][2] = $character[9][17] = $character[10][1] = $character[10][18] = $character[5][11] = '\'';
185             $character[1][0] = $character[1][19] = $character[2][0] = $character[2][19] = $character[3][0] = $character[3][19] = $character[4][0] = $character[4][19] = $character[5][0] = $character[5][19] = $character[6][0] = $character[6][19] = $character[7][0] = $character[7][19] = $character[8][0] = $character[8][19] = $character[9][0] = $character[9][19] = $character[2][2] = $character[2][17] = $character[3][2] = $character[3][17] = $character[4][2] = $character[4][17] = $character[5][2] = $character[5][17] = $character[6][2] = $character[6][17] = $character[7][2] = $character[7][17] = $character[8][2] = $character[8][17] = '|';
186             $character[3][4] = $character[3][8] = $character[3][9] = $character[3][14] = $character[4][6] = $character[4][8] = $character[5][6] = $character[6][6] = $character[6][8] = $character[7][4] = $character[7][9] = $character[7][10] = $character[7][15] = '|';
187             $character[2][5] = $character[2][6] = $character[2][7] = $character[2][10] = $character[2][11] = $character[2][12] = $character[2][13] = $character[3][5] = $character[3][10] = $character[3][13] = $character[4][9] = $character[5][9] = $character[5][10] = $character[6][5] = $character[6][14] = $character[7][5] = $character[7][6] = $character[7][7] = $character[7][8] = $character[7][11] = $character[7][12] = $character[7][13] = $character[7][14] = '_';
188             $character[4][10] = $character[4][12] = '/';
189             $character[6][11] = $character[6][13] = '\\';
190             return \@character;
191             };
192              
193             function character_L => sub {
194             my @character = $_[0]->default_character(20);
195             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
196             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
197             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
198             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
199             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
200             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
201             $character[2][6] = $character[2][7] = $character[2][8] = $character[2][9] = $character[2][10] = $character[3][6] = $character[3][10] = $character[6][6] = $character[6][10] = $character[6][11] = $character[7][6] = $character[7][7] = $character[7][8] = $character[7][9] = $character[7][10] = $character[7][11] = $character[7][12] = $character[7][13] = $character[5][13] = '_';
202             $character[3][5] = $character[3][11] = $character[4][7] = $character[5][7] = $character[6][7] = $character[4][9] = $character[5][9] = $character[6][9] = $character[7][5] = $character[7][14] = $character[6][14] = '|';
203             $character[6][12] = '/';
204             return \@character;
205             };
206              
207             function character_M => sub {
208             my @character = $_[0]->default_character(20);
209             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
210             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
211             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
212             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
213             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
214             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
215              
216             $character[2][4] = $character[2][5] = $character[2][6] = $character[2][7] = $character[2][12] = $character[2][13] = $character[2][14] = $character[2][15] = $character[7][4] = $character[7][5] = $character[7][6] = $character[7][7] = $character[7][8] = $character[7][11] = $character[7][12] = $character[7][13] = $character[7][14] = $character[7][15] = $character[6][4] = $character[6][8] = $character[6][11] = $character[6][15] = $character[3][4] = $character[3][15] = '_';
217             $character[3][3] = $character[3][16] = $character[4][5] = $character[4][14] = $character[5][5] = $character[5][14] = $character[6][5] = $character[6][14] = $character[7][3] = $character[7][9] = $character[7][10] = $character[7][16] = $character[5][7] = $character[5][12] = $character[6][7] = $character[6][12] = '|';
218             $character[3][8] = $character[4][9] = $character[5][8] = $character[6][9] = '\\';
219             $character[3][11] = $character[4][10] = $character[5][11] = $character[6][10] = '/';
220             return \@character;
221             };
222              
223             function character_N => sub {
224             my @character = $_[0]->default_character(20);
225             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
226             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
227             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
228             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
229             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
230             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
231             $character[2][4] = $character[2][5] = $character[2][6] = $character[2][7] = $character[2][10] = $character[2][11] = $character[2][12] = $character[2][13] = $character[2][14] = $character[3][4] = $character[3][10] = $character[3][14] = $character[6][4] = $character[6][8] = $character[6][14] = $character[7][4] = $character[7][5] = $character[7][6] = $character[7][7] = $character[7][8] = $character[7][11] = $character[7][12] = $character[7][13] = $character[7][14] = '_';
232             $character[3][3] = $character[3][9] = $character[3][15] = $character[4][5] = $character[4][11] = $character[4][13] = $character[5][5] = $character[5][11] = $character[5][13] = $character[6][5] = $character[6][7] = $character[6][13] = $character[7][3] = $character[7][9] = $character[7][15] = '|';
233             $character[3][8] = $character[4][9] = $character[5][8] = $character[5][10] = $character[6][9] = $character[7][10] = '\\';
234             return \@character;
235             };
236              
237             function character_O => sub {
238             my @character = $_[0]->default_character(20);
239              
240             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
241              
242             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
243            
244             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
245              
246             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
247              
248              
249             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
250             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
251            
252             $character[2][8] = $character[2][9] = $character[2][10] = $character[2][11] = $character[7][8] = $character[7][9] = $character[7][10] = $character[7][11] = "_";
253             $character[3][7] = $character[6][11] = $character[7][13] = "'";
254             $character[3][12] = $character[6][8] = $character[7][6] = "`";
255             $character[3][6] = $character[3][13] = $character[4][8] = $character[4][11] = $character[7][7] = $character[7][12] = ".";
256             $character[4][9] = $character[4][10] = $character[6][9] = $character[6][10] = "-";
257             $character[4][5] = $character[6][14] = "/";
258             $character[4][14] = $character[6][5] = "\\";
259             $character[5][5] = $character[5][7] = $character[5][12] = $character[5][14] = "|";
260             return \@character;
261             };
262              
263             function character_P => sub {
264             my @character = $_[0]->default_character(20);
265             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
266             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
267             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
268             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
269             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
270             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
271              
272             $character[2][6] = $character[2][7] = $character[2][8] = $character[2][9] = $character[2][10] = $character[2][11] = $character[7][6] = $character[7][7] = $character[7][8] = $character[7][9] = $character[7][10] = $character[3][6] = $character[3][10] = $character[3][11] = $character[4][10] = $character[4][11] = $character[5][10] = $character[5][11] = $character[5][12] = $character[6][6] = $character[6][10] = '_';
273             $character[3][5] = $character[4][7] = $character[4][9] = $character[4][14] = $character[5][7] = $character[6][7] = $character[6][9] = $character[7][5] = $character[7][11] = '|';
274             $character[3][14] = '\\';
275             $character[4][12] = ')';
276             $character[5][13] = '/';
277             return \@character;
278             };
279              
280             function character_Q => sub {
281             my @character = $_[0]->default_character(20);
282             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
283             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
284             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
285             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
286              
287             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = $character[10][1] = $character[10][18] = '.';
288             $character[10][1] = $character[9][2] = $character[9][17] = $character[10][18] = '\'';
289              
290             $character[2][7] = $character[2][8] = $character[2][9] = $character[6][13] = $character[7][7] = $character[7][8] = $character[7][9] = $character[7][12] = $character[7][13] = '_';
291             $character[5][4] = $character[5][6] = $character[5][10] = $character[5][12] = $character[7][14] = '|';
292             $character[3][5] = $character[3][11] = $character[4][7] = $character[4][9] = $character[7][6] = $character[7][10] = '.';
293             $character[4][12] = $character[6][4] = $character[6][12] = $character[7][11] = '\\';
294             $character[4][4] = '/';
295             $character[6][7] = $character[7][5] = '`';
296             $character[4][8] = $character[6][8] = '-';
297             $character[3][6] = $character[3][10] = $character[6][9] = '\'';
298              
299             return \@character;
300             };
301              
302             function character_R => sub {
303             my @character = $_[0]->default_character(20);
304             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
305             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
306             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
307             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
308             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
309             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
310             $character[2][5] = $character[2][6] = $character[2][7] = $character[2][8] = $character[2][9] = $character[2][10] = $character[2][11] = $character[3][5] = $character[3][9] = $character[3][10] = $character[4][10] = $character[4][9] = $character[5][9] = $character[5][10] = $character[6][5] = $character[7][5] = $character[7][6] = $character[7][7] = $character[6][14] = $character[7][12] = $character[7][13] = $character[7][14] = '_';
311             $character[3][4] = $character[4][6] = $character[4][8] = $character[4][13] = $character[5][6] = $character[6][6] = $character[6][8] = $character[7][4] = $character[7][9] = $character[7][11] = $character[7][15] = '|';
312             $character[3][12] = $character[6][11] = $character[6][13] = '\\';
313             $character[5][12] = '/';
314             $character[4][11] = ')';
315             return \@character;
316             };
317              
318             function character_S => sub {
319             my @character = $_[0]->default_character(20);
320             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
321             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
322             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
323             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
324             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
325             $character[2][7] = $character[2][8] = $character[2][9] = $character[2][10] = $character[2][11] = $character[2][12] = $character[2][13] = '_';
326             $character[3][9] = $character[3][10] = $character[3][11] = '_';
327             $character[4][9] = $character[4][10] = $character[4][13] = '_';
328             $character[5][8] = $character[5][9] = $character[5][10] = '_';
329             $character[6][8] = $character[6][9] = $character[6][10] = $character[6][11] = '_';
330             $character[7][6] = $character[7][7] = $character[7][8] = $character[7][9] = $character[7][10] = $character[7][11] = $character[7][12] = '_';
331             $character[4][5] = $character[6][5] = $character[7][5] = $character[3][14] = $character[4][14] = $character[6][14] = '|';
332             $character[5][12] = '-';
333             $character[5][7] = $character[5][12] = $character[7][13] = '.';
334             $character[5][6] = $character[7][14] = '\'';
335             $character[5][11] = $character[6][6] = '`';
336             $character[3][6] = '/';
337             $character[4][12] = $character[6][7] = '\\';
338             $character[4][8] = '(';
339             $character[6][12] = ')';
340             return \@character;
341             };
342              
343             function character_T => sub {
344             my @character = $_[0]->default_character(20);
345             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
346             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
347             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
348             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
349             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
350             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
351              
352             $character[7][7] = $character[7][8] = $character[7][9] = $character[7][10] = $character[7][11] = $character[6][7] = $character[6][11] = $character[3][7] = $character[3][11] = $character[4][5] = $character[4][13] = $character[2][5] = $character[2][6] = $character[2][7] = $character[2][8] = $character[2][9] = $character[2][10] = $character[2][11] = $character[2][12] = $character[2][13] = '_';
353             $character[3][4] = $character[3][14] = $character[4][4] = $character[4][14] = $character[4][8] = $character[4][10] = $character[5][8] = $character[5][10] = $character[6][8] = $character[6][10] = $character[7][6] = $character[7][12] = '|';
354             $character[4][6] = '/';
355             $character[4][12] = '\\';
356             return \@character;
357             };
358              
359             function character_U => sub {
360             my @character = $_[0]->default_character(20);
361             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
362              
363             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
364            
365             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
366              
367             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
368              
369              
370             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
371             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
372            
373             $character[2][4] = $character[2][5] = $character[2][6] = $character[2][7] = $character[2][8] = $character[2][11] = $character[2][12] = $character[2][13] = $character[2][14] = $character[2][15] = $character[3][4] = $character[3][8] = $character[3][11] = $character[3][15] = $character[7][9] = $character[7][10] = "_";
374             $character[3][3] = $character[3][9] = $character[3][10] = $character[3][16] = $character[4][5] = $character[4][7] = $character[4][12] = $character[4][14] = $character[5][5] = $character[5][14] = "|";
375             $character[5][7] = $character[5][12] = $character[7][12] = "'";
376             $character[6][6] = "\\";
377             $character[6][8] = $character[7][7] = "`";
378             $character[6][9] = $character[6][10] = "-";
379             $character[6][11] = "'";
380             $character[6][13] = "/";
381             $character[7][8] = $character[7][11] = ".";
382             return \@character;
383             };
384              
385             function character_V => sub {
386             my @character = $_[0]->default_character(20);
387            
388             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
389             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
390             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
391             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
392             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = $character[9][2] = $character[9][17] = '.';
393             $character[10][1] = $character[10][18] = '\'';
394              
395             $character[2][4] = $character[2][5] = $character[2][6] = $character[2][7] = $character[7][9] = $character[2][11] = $character[2][12] = $character[2][13] = $character[2][14] = $character[3][4] = $character[3][7] = $character[3][11] = $character[3][14] = '_';
396             $character[3][3] = $character[3][8] = $character[3][10] = $character[3][15] = '|';
397             $character[6][9] = '\'';
398             $character[4][5] = $character[4][7] = $character[5][6] = $character[5][8] = $character[6][7] = $character[7][8] = '\\';
399             $character[4][11] = $character[4][13] = $character[5][10] = $character[5][12] = $character[6][11] = $character[7][10] = '/';
400              
401             return \@character;
402             };
403              
404             function character_W => sub {
405             my @character = $_[0]->default_character(20);
406             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
407             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
408             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
409             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
410             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
411             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
412              
413             $character[2][4] = $character[2][5] = $character[2][6] = $character[2][7] = $character[2][12] = $character[2][13] = $character[2][14] = $character[2][15] = $character[7][6] = $character[7][7] = $character[7][12] = $character[7][13] = $character[3][4] = $character[3][15] = $character[3][11] = $character[3][8] = $character[2][11] = $character[2][8] = '_';
414             $character[3][3] = $character[3][16] = $character[4][5] = $character[4][14] = $character[5][5] = $character[5][14] = $character[6][5] = $character[6][14] = $character[7][5] = $character[3][9] = $character[3][10] = $character[7][14] = $character[5][7] = $character[5][12] = $character[4][7] = $character[4][12] = '|';
415             $character[5][8] = $character[4][9] = $character[7][8] = $character[6][9] = '/';
416             $character[5][11] = $character[4][10] = $character[7][11] = $character[6][10] = '\\';
417             return \@character;
418             };
419              
420             function character_X => sub {
421             my @character = $_[0]->default_character(20);
422              
423             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
424             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
425             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
426             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
427             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
428             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
429              
430             $character[2][5] = $character[2][6] = $character[2][7] = $character[2][12] = $character[2][13] = $character[2][14] = $character[7][4] = $character[7][5] = $character[7][6] = $character[7][7] = $character[7][8] = $character[7][11] = $character[7][12] = $character[7][13] = $character[7][14] = $character[7][15] = $character[3][5] = $character[3][14] = $character[3][11] = $character[3][8] = $character[6][5] = $character[6][8] = $character[6][11] = $character[6][14] = $character[2][11] = $character[2][8] = '_';
431             $character[3][4] = $character[3][15] = $character[7][4] = $character[7][9] = $character[7][10] = $character[3][9] = $character[3][10] = $character[7][15] = '|';
432             $character[4][6] = $character[4][8] = $character[6][11] = $character[6][13] = '\\';
433             $character[4][11] = $character[4][13] = $character[6][6] = $character[6][8] = '/';
434             $character[5][7] = '>';
435             $character[5][12] = '<';
436             $character[5][9] = $character[6][10] = '`';
437             $character[5][10] = $character[6][9] = '\'';
438              
439             return \@character;
440             };
441              
442             function character_Y => sub {
443             my @character = $_[0]->default_character(20);
444             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
445             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
446             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
447             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
448             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] ='.';
449             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
450             $character[2][5]= $character[2][6]= $character[2][7]= $character[2][8]= $character[2][11]= $character[2][12]= $character[2][13]= $character[2][14]= $character[6][7]= $character[6][12]= $character[3][5]= $character[3][8]=$character[3][11]=$character[3][14]='_';
451             for(my $i=7;$i<13;$i++){
452             $character[7][$i]='_';
453             }
454             $character[3][4]=$character[3][9]=$character[3][10]=$character[3][15]=$character[6][8]=$character[6][11]=$character[7][6]=$character[7][13]='|';
455             $character[4][6]=$character[4][8]=$character[5][7]=$character[5][9]='\\';
456             $character[4][11]=$character[4][13]=$character[5][10]=$character[5][12]='/';
457             return \@character;
458             };
459              
460             function character_Z => sub {
461             my @character = $_[0]->default_character(20);
462             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
463             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
464             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
465             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
466             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = $character[9][2] = $character[9][17] = '.';
467             $character[10][1] = $character[10][18] = '\'';
468              
469             $character[2][6] = $character[2][7] = $character[2][8] = $character[2][9] = $character[2][10] = $character[2][11] = $character[2][12] = $character[2][13] = $character[4][6] = $character[3][8] = $character[3][9] = $character[3][13] = $character[6][6] = $character[6][10] = $character[6][11] = $character[5][13] = '_';
470             $character[6][14] = $character[7][5] = $character[3][5] = $character[4][5] = $character[3][14] = $character[7][14] = '|';
471             $character[4][7] = $character[4][10] = $character[4][12] = $character[5][8] = $character[6][7] = $character[6][9] = $character[6][12] = '/';
472             $character[5][9] = $character[5][11] = '\'';
473             $character[5][8] = $character[5][10] = '.';
474             $character[7][6] = $character[7][7] = $character[7][8] = $character[7][9] = $character[7][10] = $character[7][11] = $character[7][12] = $character[7][13] = '_';
475              
476             return \@character;
477             };
478              
479             function character_a => sub { $_[0]->character_A };
480            
481             function character_b => sub { $_[0]->character_B };
482            
483             function character_c => sub { $_[0]->character_C };
484            
485             function character_d => sub { $_[0]->character_D };
486            
487             function character_e => sub { $_[0]->character_E };
488            
489             function character_f => sub { $_[0]->character_F };
490            
491             function character_g => sub { $_[0]->character_G };
492            
493             function character_h => sub { $_[0]->character_H };
494            
495             function character_i => sub { $_[0]->character_I };
496            
497             function character_j => sub { $_[0]->character_J };
498            
499             function character_k => sub { $_[0]->character_K };
500            
501             function character_l => sub { $_[0]->character_L };
502            
503             function character_m => sub { $_[0]->character_M };
504            
505             function character_n => sub { $_[0]->character_N };
506            
507             function character_o => sub { $_[0]->character_O };
508            
509             function character_p => sub { $_[0]->character_P };
510            
511             function character_q => sub { $_[0]->character_Q };
512            
513             function character_r => sub { $_[0]->character_R };
514            
515             function character_s => sub { $_[0]->character_S };
516            
517             function character_t => sub { $_[0]->character_T };
518            
519             function character_u => sub { $_[0]->character_U };
520            
521             function character_v => sub { $_[0]->character_V };
522            
523             function character_w => sub { $_[0]->character_W };
524            
525             function character_x => sub { $_[0]->character_X };
526            
527             function character_y => sub { $_[0]->character_Y };
528            
529             function character_z => sub { $_[0]->character_Z };
530              
531             function character_0 => sub {
532             my @character = $_[0]->default_character(20);
533             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
534             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
535             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
536             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
537             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
538             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
539              
540             $character[2][8] = $character[2][9] = $character[2][10] = $character[2][11] = $character[7][8] = $character[7][9] = $character[7][10] = $character[7][11] = '_';
541             $character[4][5] = $character[4][14] = $character[5][5] = $character[5][7] = $character[5][12] = $character[5][14] = $character[6][5] = $character[6][14] = '|';
542             $character[4][9] = $character[4][10] = $character[6][9] = $character[6][10] = '-';
543             $character[3][6] = $character[3][13] = $character[4][8] = $character[4][11] = $character[7][7] = $character[7][12] = '.';
544             $character[3][7] = $character[3][12] = $character[6][11] = $character[7][6] = $character[7][13] = '\'';
545             return \@character;
546             };
547              
548             function character_1 => sub {
549             my @character = $_[0]->default_character(20);
550             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
551             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
552             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
553             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
554             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = $character[9][2] = $character[9][17] = '.';
555             $character[10][1] = $character[10][18] = '\'';
556             $character[2][8] = $character[2][9] = $character[6][7] = $character[6][11] = $character[7][7] = $character[7][8] = $character[7][9] = $character[7][10] = $character[7][11] = '_';
557             $character[3][10] = $character[4][8] = $character[4][10] = $character[5][8] = $character[5][10] = $character[6][8] = $character[6][10] = $character[7][6] = $character[7][12] = '|';
558             $character[3][7] = '/';
559             $character[4][7] = '`';
560             return \@character;
561             };
562              
563             function character_2 => sub {
564             my @character = $_[0]->default_character(20);
565              
566             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
567              
568             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
569            
570             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
571              
572             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
573              
574              
575             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
576             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
577            
578             $character[2][7] = $character[2][8] = $character[2][9] = $character[2][10] = $character[2][11] = $character[3][8] = $character[3][9] = $character[3][10] = $character[4][6] = $character[4][8] = $character[4][9] = $character[4][10] = $character[5][8] = $character[5][9] = $character[5][10] = $character[5][11] = $character[6][8] = $character[6][9] = $character[6][10] = $character[6][11] = $character[7][6] = $character[7][7] = $character[7][8] = $character[7][9] = $character[7][10] = $character[7][11] = $character[7][12] = '_';
579             $character[3][6] = $character[4][7] = $character[6][5] = $character[6][7] = '/';
580             $character[3][12] = '`';
581             $character[3][13] = $character[5][6] = $character[5][12] = '.';
582             $character[4][5] = $character[4][13] = $character[7][5] = $character[7][13] = '|';
583             $character[4][11] = ')';
584             $character[5][7] = $character[5][13] = '\'';
585              
586             return \@character;
587             };
588              
589             function character_3 => sub {
590             my @character = $_[0]->default_character(20);
591              
592             $character[0][1] = '.';
593             $character[0][2] = '-';
594             $character[0][3] = '-';
595             $character[0][4] = '-';
596             $character[0][5] = '-';
597             $character[0][6] = '-';
598             $character[0][7] = '-';
599             $character[0][8] = '-';
600             $character[0][9] = '-';
601             $character[0][10] = '-';
602             $character[0][11] = '-';
603             $character[0][12] = '-';
604             $character[0][13] = '-';
605             $character[0][14] = '-';
606             $character[0][15] = '-';
607             $character[0][16] = '-';
608             $character[0][17] = '-';
609             $character[0][18] = '.';
610              
611             $character[1][0] = '|';
612             $character[1][2] = '.';
613             $character[1][3] = '-';
614             $character[1][4] = '-';
615             $character[1][5] = '-';
616             $character[1][6] = '-';
617             $character[1][7] = '-';
618             $character[1][8] = '-';
619             $character[1][9] = '-';
620             $character[1][10] = '-';
621             $character[1][11] = '-';
622             $character[1][12] = '-';
623             $character[1][13] = '-';
624             $character[1][14] = '-';
625             $character[1][15] = '-';
626             $character[1][16] = '-';
627             $character[1][17] = '.';
628             $character[1][19] = '|';
629              
630             $character[2][0] = '|';
631             $character[2][2] = '|';
632             $character[2][7] = '_';
633             $character[2][8] = '_';
634             $character[2][9] = '_';
635             $character[2][10] = '_';
636             $character[2][11] = '_';
637             $character[2][12] = '_';
638             $character[2][17] = '|';
639             $character[2][19] = '|';
640              
641             $character[3][0] = '|';
642             $character[3][2] = '|';
643             $character[3][6] = '/';
644             $character[3][8] = '_';
645             $character[3][9] = '_';
646             $character[3][10] = '_';
647             $character[3][11] = '_';
648             $character[3][13] = '\'';
649             $character[3][14] = '.';
650             $character[3][17] = '|';
651             $character[3][19] = '|';
652              
653             $character[4][0] = '|';
654             $character[4][2] = '|';
655             $character[4][6] = '\'';
656             $character[4][7] = '\'';
657             $character[4][10] = '_';
658             $character[4][11] = '_';
659             $character[4][12] = ')';
660             $character[4][14] = '|';
661             $character[4][17] = '|';
662             $character[4][19] = '|';
663              
664             $character[5][0] = '|';
665             $character[5][2] = '|';
666             $character[5][6] = '_';
667             $character[5][9] = '|';
668             $character[5][10] = '_';
669             $character[5][11] = '_';
670             $character[5][13] = '\'';
671             $character[5][14] = '.';
672             $character[5][17] = '|';
673             $character[5][19] = '|';
674              
675             $character[6][0] = '|';
676             $character[6][2] = '|';
677             $character[6][5] = '|';
678             $character[6][7] = '\\';
679             $character[6][8] = '_';
680             $character[6][9] = '_';
681             $character[6][10] = '_';
682             $character[6][11] = '_';
683             $character[6][12] = ')';
684             $character[6][14] = '|';
685             $character[6][17] = '|';
686             $character[6][19] = '|';
687              
688             $character[7][0] = '|';
689             $character[7][2] = '|';
690             $character[7][6] = '\\';
691             $character[7][7] = '_';
692             $character[7][8] = '_';
693             $character[7][9] = '_';
694             $character[7][10] = '_';
695             $character[7][11] = '_';
696             $character[7][12] = '_';
697             $character[7][13] = '.';
698             $character[7][14] = '\'';
699             $character[7][17] = '|';
700             $character[7][19] = '|';
701              
702             $character[8][0] = '|';
703             $character[8][2] = '|';
704             $character[8][17] = '|';
705             $character[8][19] = '|';
706              
707             $character[9][0] = '|';
708             $character[9][2] = '|';
709             $character[9][3] = '-';
710             $character[9][4] = '-';
711             $character[9][5] = '-';
712             $character[9][6] = '-';
713             $character[9][7] = '-';
714             $character[9][8] = '-';
715             $character[9][9] = '-';
716             $character[9][10] = '-';
717             $character[9][11] = '-';
718             $character[9][12] = '-';
719             $character[9][13] = '-';
720             $character[9][14] = '-';
721             $character[9][15] = '-';
722             $character[9][16] = '-';
723             $character[9][17] = '\'';
724             $character[9][19] = '|';
725              
726             $character[10][1] = '\'';
727             $character[10][2] = '-';
728             $character[10][3] = '-';
729             $character[10][4] = '-';
730             $character[10][5] = '-';
731             $character[10][6] = '-';
732             $character[10][7] = '-';
733             $character[10][8] = '-';
734             $character[10][9] = '-';
735             $character[10][10] = '-';
736             $character[10][11] = '-';
737             $character[10][12] = '-';
738             $character[10][13] = '-';
739             $character[10][14] = '-';
740             $character[10][15] = '-';
741             $character[10][16] = '-';
742             $character[10][17] = '-';
743             $character[10][18] = '\'';
744              
745             return \@character;
746             };
747              
748             function character_4 => sub {
749             my @character = $_[0]->default_character(20);
750              
751             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
752             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
753             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
754             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
755             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
756             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
757              
758             $character[2][6] = $character[2][11] = $character[4][8] = $character[4][9] = $character[4][13] = $character[5][6] = $character[5][7] = $character[5][8] = $character[5][9] = $character[5][13] = $character[6][9] = $character[6][13] = $character[7][9] = $character[7][10] = $character[7][11] = $character[7][12] = $character[7][13] = '_';
759             $character[3][5] = $character[3][7] = $character[3][10] = $character[3][12] = $character[4][5] = $character[4][7] = $character[4][10] = $character[4][12] = $character[5][5] = $character[5][14] = $character[6][10] = $character[6][12] = $character[7][8] = $character[7][14] = '|';
760              
761              
762             return \@character;
763             };
764              
765             function character_5 => sub {
766             my @character = $_[0]->default_character(20);
767            
768             $character[0][1] = '.';
769             $character[0][2] = '-';
770             $character[0][3] = '-';
771             $character[0][4] = '-';
772             $character[0][5] = '-';
773             $character[0][6] = '-';
774             $character[0][7] = '-';
775             $character[0][8] = '-';
776             $character[0][9] = '-';
777             $character[0][10] = '-';
778             $character[0][11] = '-';
779             $character[0][12] = '-';
780             $character[0][13] = '-';
781             $character[0][14] = '-';
782             $character[0][15] = '-';
783             $character[0][16] = '-';
784             $character[0][17] = '-';
785             $character[0][18] = '.';
786             $character[1][0] = '|';
787             $character[1][2] = '.';
788             $character[1][3] = '-';
789             $character[1][4] = '-';
790             $character[1][5] = '-';
791             $character[1][6] = '-';
792             $character[1][7] = '-';
793             $character[1][8] = '-';
794             $character[1][9] = '-';
795             $character[1][10] = '-';
796             $character[1][11] = '-';
797             $character[1][12] = '-';
798             $character[1][13] = '-';
799             $character[1][14] = '-';
800             $character[1][15] = '-';
801             $character[1][16] = '-';
802             $character[1][17] = '.';
803             $character[1][19] = '|';
804             $character[2][0] = '|';
805             $character[2][2] = '|';
806             $character[2][6] = '_';
807             $character[2][7] = '_';
808             $character[2][8] = '_';
809             $character[2][9] = '_';
810             $character[2][10] = '_';
811             $character[2][11] = '_';
812             $character[2][12] = '_';
813             $character[2][17] = '|';
814             $character[2][19] = '|';
815             $character[3][0] = '|';
816             $character[3][2] = '|';
817             $character[3][5] = '|';
818             $character[3][8] = '_';
819             $character[3][9] = '_';
820             $character[3][10] = '_';
821             $character[3][11] = '_';
822             $character[3][12] = '_';
823             $character[3][13] = '|';
824             $character[3][17] = '|';
825             $character[3][19] = '|';
826             $character[4][0] = '|';
827             $character[4][2] = '|';
828             $character[4][5] = '|';
829             $character[4][7] = '|';
830             $character[4][8] = '_';
831             $character[4][9] = '_';
832             $character[4][10] = '_';
833             $character[4][11] = '_';
834             $character[4][17] = '|';
835             $character[4][19] = '|';
836             $character[5][0] = '|';
837             $character[5][2] = '|';
838             $character[5][5] = '\'';
839             $character[5][6] = '_';
840             $character[5][7] = '.';
841             $character[5][8] = '_';
842             $character[5][9] = '_';
843             $character[5][10] = '_';
844             $character[5][11] = '_';
845             $character[5][12] = '\'';
846             $character[5][13] = '\'';
847             $character[5][14] = '.';
848             $character[5][17] = '|';
849             $character[5][19] = '|';
850             $character[6][0] = '|';
851             $character[6][2] = '|';
852             $character[6][5] = '|';
853             $character[6][7] = '\\';
854             $character[6][8] = '_';
855             $character[6][9] = '_';
856             $character[6][10] = '_';
857             $character[6][11] = '_';
858             $character[6][12] = ')';
859             $character[6][14] = '|';
860             $character[6][17] = '|';
861             $character[6][19] = '|';
862             $character[7][0] = '|';
863             $character[7][2] = '|';
864             $character[7][6] = '\\';
865             $character[7][7] = '_';
866             $character[7][8] = '_';
867             $character[7][9] = '_';
868             $character[7][10] = '_';
869             $character[7][11] = '_';
870             $character[7][12] = '_';
871             $character[7][13] = '.';
872             $character[7][14] = '\'';
873             $character[7][17] = '|';
874             $character[7][19] = '|';
875             $character[8][0] = '|';
876             $character[8][2] = '|';
877             $character[8][17] = '|';
878             $character[8][19] = '|';
879             $character[9][0] = '|';
880             $character[9][2] = '\'';
881             $character[9][3] = '-';
882             $character[9][4] = '-';
883             $character[9][5] = '-';
884             $character[9][6] = '-';
885             $character[9][7] = '-';
886             $character[9][8] = '-';
887             $character[9][9] = '-';
888             $character[9][10] = '-';
889             $character[9][11] = '-';
890             $character[9][12] = '-';
891             $character[9][13] = '-';
892             $character[9][14] = '-';
893             $character[9][15] = '-';
894             $character[9][16] = '-';
895             $character[9][17] = '\'';
896             $character[9][19] = '|';
897             $character[10][1] = '\'';
898             $character[10][2] = '-';
899             $character[10][3] = '-';
900             $character[10][4] = '-';
901             $character[10][5] = '-';
902             $character[10][6] = '-';
903             $character[10][7] = '-';
904             $character[10][8] = '-';
905             $character[10][9] = '-';
906             $character[10][10] = '-';
907             $character[10][11] = '-';
908             $character[10][12] = '-';
909             $character[10][13] = '-';
910             $character[10][14] = '-';
911             $character[10][15] = '-';
912             $character[10][16] = '-';
913             $character[10][17] = '-';
914             $character[10][18] = '\'';
915              
916             return \@character;
917             };
918              
919             function character_6 => sub {
920             my @character = $_[0]->default_character(20);
921             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
922             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
923             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
924             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
925             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = '.';
926             $character[10][1] = $character[10][18] = $character[9][2] = $character[9][17] = '\'';
927              
928             $character[2][7] = $character[2][8] = $character[2][9] = $character[2][10] = $character[2][11] = $character[2][12] = $character[3][8] = $character[3][9] = $character[3][10] = $character[3][11] = $character[4][8] = $character[4][9] = $character[4][10] = $character[4][11] = $character[4][13] = $character[5][8] = $character[5][9] = $character[5][10] = $character[5][11] = $character[6][8] = $character[6][9] = $character[6][10] = $character[6][11] = $character[7][7] = $character[7][8] = $character[7][9] = $character[7][10] = $character[7][11] = $character[7][12] = '_';
929             $character[3][6] = $character[5][7] = $character[5][13] = $character[7][5] = $character[7][14] = '\'';
930             $character[4][7] = $character[4][5] = $character[5][5] = $character[6][5] = $character[4][14] = $character[6][14] = '|';
931             $character[3][13] = $character[4][12] = '\\';
932             $character[6][7] = '(';
933             $character[6][12] = ')';
934             $character[3][5] = $character[7][6] = $character[5][14] = $character[7][13] = '.';
935             $character[5][12] = '`';
936             return \@character;
937             };
938              
939             function character_7 => sub {
940             my @character = $_[0]->default_character(20);
941             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
942             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
943             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[8][2] = '|';
944             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[8][17] = '|';
945              
946             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = $character[10][1] = $character[10][18] = '.';
947             $character[10][1] = $character[9][2] = $character[9][17] = $character[10][18] = '\'';
948             $character[3][5] = $character[3][13] = $character[4][5] = '|';
949             $character[2][6] = $character[2][7] = $character[2][8] = $character[2][9] = $character[2][10] = $character[2][11] = $character[2][12] = $character[4][6] = $character[3][8] = $character[3][9] = $character[3][10] = $character[7][8] = '_';
950             $character[4][7] = $character[4][10] = $character[5][9] = $character[6][8] = $character[7][7] = $character[7][9] = $character[6][10] = $character[5][11] = $character[4][12] = '/';
951             return \@character;
952             };
953              
954             function character_8 => sub {
955             my @character = $_[0]->default_character(20);
956             $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[0][7] = $character[0][8] = $character[0][9] = $character[0][10] = $character[0][11] = $character[0][12] = $character[0][13] = $character[0][14] = $character[0][15] = $character[0][16] = $character[0][17] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[1][7] = $character[1][8] = $character[1][9] = $character[1][10] = $character[1][11] = $character[1][12] = $character[1][13] = $character[1][14] = $character[1][15] = $character[1][16] = '-';
957             $character[9][3] = $character[9][4] = $character[9][5] = $character[9][6] = $character[9][7] = $character[9][10] = $character[9][11] = $character[9][12] = $character[9][13] = $character[9][14] = $character[9][15] = $character[9][16] = $character[10][2] = $character[10][3] = $character[10][4] = $character[10][5] = $character[10][6] = $character[10][7] = $character[10][8] = $character[10][9] = $character[10][10] = $character[10][11] = $character[10][12] = $character[10][13] = $character[10][14] = $character[10][15] = $character[10][16] = $character[10][17] = $character[9][8] = $character[9][9] = '-';
958             $character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = $character[7][0] = $character[8][0] = $character[9][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][2] = $character[6][2] = $character[7][2] = $character[6][5] = $character[4][6] = $character[4][13] = $character[8][2] = '|';
959             $character[1][19] = $character[2][19] = $character[3][19] = $character[4][19] = $character[5][19] = $character[6][19] = $character[7][19] = $character[8][19] = $character[9][19] = $character[2][17] = $character[3][17] = $character[4][17] = $character[5][17] = $character[6][17] = $character[7][17] = $character[6][14] = $character[8][17] = '|';
960              
961             $character[0][1] = $character[0][18] = $character[1][2] = $character[1][17] = $character[3][6] = $character[3][13] = $character[10][1] = $character[7][6] = $character[7][13] = $character[5][13] = $character[5][6] = $character[10][18] = '.';
962             $character[5][7] = $character[7][5] = '`';
963             $character[4][9] = $character[4][10] = $character[3][9] = $character[3][10] = $character[2][8] = $character[2][9] = $character[2][10] = $character[2][11] = $character[5][8] = $character[5][9] = $character[5][10] = $character[5][11] = $character[6][8] = $character[6][9] = $character[6][10] = $character[6][11] = $character[7][7] = $character[7][8] = $character[7][9] = $character[7][10] = $character[7][11] = $character[7][12] = '_';
964             $character[4][8] = $character[6][7] = '(';
965             $character[4][11] = $character[6][12] = ')';
966             $character[7][14] = $character[5][12] = $character[3][7] = $character[3][12] = $character[10][1] = $character[9][2] = $character[9][17] = $character[10][18] = '\'';
967              
968             return \@character;
969             };
970              
971             function character_9 => sub {
972             my @character = $_[0]->default_character(20);
973             $character[0][1] = '.';
974             $character[0][2] = '-';
975             $character[0][3] = '-';
976             $character[0][4] = '-';
977             $character[0][5] = '-';
978             $character[0][6] = '-';
979             $character[0][7] = '-';
980             $character[0][8] = '-';
981             $character[0][9] = '-';
982             $character[0][10] = '-';
983             $character[0][11] = '-';
984             $character[0][12] = '-';
985             $character[0][13] = '-';
986             $character[0][14] = '-';
987             $character[0][15] = '-';
988             $character[0][16] = '-';
989             $character[0][17] = '-';
990             $character[0][18] = '.';
991             $character[1][0] = '|';
992             $character[1][2] = '.';
993             $character[1][3] = '-';
994             $character[1][4] = '-';
995             $character[1][5] = '-';
996             $character[1][6] = '-';
997             $character[1][7] = '-';
998             $character[1][8] = '-';
999             $character[1][9] = '-';
1000             $character[1][10] = '-';
1001             $character[1][11] = '-';
1002             $character[1][12] = '-';
1003             $character[1][13] = '-';
1004             $character[1][14] = '-';
1005             $character[1][15] = '-';
1006             $character[1][16] = '-';
1007             $character[1][17] = '.';
1008             $character[1][19] = '|';
1009             $character[2][0] = '|';
1010             $character[2][2] = '|';
1011             $character[2][7] = '_';
1012             $character[2][8] = '_';
1013             $character[2][9] = '_';
1014             $character[2][10] = '_';
1015             $character[2][11] = '_';
1016             $character[2][12] = '_';
1017             $character[2][17] = '|';
1018             $character[2][19] = '|';
1019             $character[3][0] = '|';
1020             $character[3][2] = '|';
1021             $character[3][5] = '.';
1022             $character[3][6] = '\'';
1023             $character[3][8] = '_';
1024             $character[3][9] = '_';
1025             $character[3][10] = '_';
1026             $character[3][11] = '_';
1027             $character[3][13] = '\'';
1028             $character[3][14] = '.';
1029             $character[3][17] = '|';
1030             $character[3][19] = '|';
1031             $character[4][0] = '|';
1032             $character[4][2] = '|';
1033             $character[4][5] = '|';
1034             $character[4][7] = '(';
1035             $character[4][8] = '_';
1036             $character[4][9] = '_';
1037             $character[4][10] = '_';
1038             $character[4][11] = '_';
1039             $character[4][12] = ')';
1040             $character[4][14] = '|';
1041             $character[4][17] = '|';
1042             $character[4][19] = '|';
1043             $character[5][0] = '|';
1044             $character[5][2] = '|';
1045             $character[5][5] = '\'';
1046             $character[5][6] = '_';
1047             $character[5][7] = '.';
1048             $character[5][8] = '_';
1049             $character[5][9] = '_';
1050             $character[5][10] = '_';
1051             $character[5][11] = '_';
1052             $character[5][12] = '.';
1053             $character[5][14] = '|';
1054             $character[5][17] = '|';
1055             $character[5][19] = '|';
1056             $character[6][0] = '|';
1057             $character[6][2] = '|';
1058             $character[6][5] = '|';
1059             $character[6][7] = '\\';
1060             $character[6][8] = '_';
1061             $character[6][9] = '_';
1062             $character[6][10] = '_';
1063             $character[6][11] = '_';
1064             $character[6][12] = '|';
1065             $character[6][14] = '|';
1066             $character[6][17] = '|';
1067             $character[6][19] = '|';
1068             $character[7][0] = '|';
1069             $character[7][2] = '|';
1070             $character[7][6] = '\\';
1071             $character[7][7] = '_';
1072             $character[7][8] = '_';
1073             $character[7][9] = '_';
1074             $character[7][10] = '_';
1075             $character[7][11] = '_';
1076             $character[7][12] = '_';
1077             $character[7][13] = ',';
1078             $character[7][14] = '\'';
1079             $character[7][17] = '|';
1080             $character[7][19] = '|';
1081             $character[8][0] = '|';
1082             $character[8][2] = '|';
1083             $character[8][17] = '|';
1084             $character[8][19] = '|';
1085             $character[9][0] = '|';
1086             $character[9][2] = '\'';
1087             $character[9][3] = '-';
1088             $character[9][4] = '-';
1089             $character[9][5] = '-';
1090             $character[9][6] = '-';
1091             $character[9][7] = '-';
1092             $character[9][8] = '-';
1093             $character[9][9] = '-';
1094             $character[9][10] = '-';
1095             $character[9][11] = '-';
1096             $character[9][12] = '-';
1097             $character[9][13] = '-';
1098             $character[9][14] = '-';
1099             $character[9][15] = '-';
1100             $character[9][16] = '-';
1101             $character[9][17] = '\'';
1102             $character[9][19] = '|';
1103             $character[10][1] = '\'';
1104             $character[10][2] = '-';
1105             $character[10][3] = '-';
1106             $character[10][4] = '-';
1107             $character[10][5] = '-';
1108             $character[10][6] = '-';
1109             $character[10][7] = '-';
1110             $character[10][8] = '-';
1111             $character[10][9] = '-';
1112             $character[10][10] = '-';
1113             $character[10][11] = '-';
1114             $character[10][12] = '-';
1115             $character[10][13] = '-';
1116             $character[10][14] = '-';
1117             $character[10][15] = '-';
1118             $character[10][16] = '-';
1119             $character[10][17] = '-';
1120             $character[10][18] = '\'';
1121             return \@character;
1122             };
1123              
1124             function space => sub {
1125             my @character = $_[0]->default_character(20);
1126             return \@character;
1127             };
1128              
1129             1;
1130              
1131             __END__