File Coverage

blib/lib/Ascii/Text/Font/Block.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


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