property
character_height
=> (
initable
=> 0,
writeable
=> 0,
value
=> 6
);
function
space
=>
sub
{
my
(
@character
) =
$_
[0]->default_character(6);
return
\
@character
;
};
function
character_A
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[1][2] =
$character
[2][1] =
$character
[2][4] =
$character
[3][0]
=
"\/"
;
$character
[2][2] =
$character
[2][3] =
"\-"
;
$character
[3][3] =
"\("
;
$character
[0][3] =
$character
[0][4] =
$character
[3][4] =
"_"
;
$character
[1][5] =
"\)"
;
return
\
@character
;
};
function
character_B
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[1][5] =
"\)"
;
$character
[0][3] =
$character
[0][4] =
$character
[3][1] =
$character
[3][2]
=
$character
[3][3] =
$character
[3][5] =
"_"
;
$character
[2][4] =
"\<"
;
$character
[2][2] =
$character
[2][3] =
"\-"
;
$character
[1][2] =
$character
[2][1] =
$character
[3][0] =
$character
[3][4]
=
"\/"
;
return
\
@character
;
};
function
character_C
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[3][0] =
"\("
;
$character
[1][5] =
"\)"
;
$character
[0][3] =
$character
[0][4] =
$character
[3][1] =
$character
[3][2]
=
"_"
;
$character
[1][2] =
$character
[2][1] =
$character
[3][3] =
"\/"
;
return
\
@character
;
};
function
character_D
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[1][2] =
$character
[2][1] =
$character
[2][4] =
$character
[3][0]
=
$character
[3][3] =
"\/"
;
$character
[1][5] =
"\)"
;
$character
[0][3] =
$character
[0][4] =
$character
[3][1] =
$character
[3][2]
=
$character
[3][4] =
"_"
;
return
\
@character
;
};
function
character_E
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[1][2] =
$character
[2][1] =
"\/"
;
$character
[0][3] =
$character
[0][4] =
$character
[3][1] =
$character
[3][2]
=
$character
[3][3] =
"_"
;
$character
[3][0] =
"\("
;
$character
[1][5] =
"\`"
;
$character
[3][4] =
"\,"
;
$character
[2][2] =
$character
[2][3] =
"\-"
;
return
\
@character
;
};
function
character_F
=>
sub
{
my
@character
=
$_
[0]->default_character(8);
$character
[1][4] =
$character
[2][3] =
$character
[3][2] =
"\/"
;
$character
[1][7] =
"\'"
;
$character
[0][3] =
$character
[0][4] =
$character
[0][5] =
$character
[0][6]
=
$character
[0][7] =
$character
[3][1] =
"_"
;
$character
[3][0] =
"\("
;
$character
[2][2] =
$character
[2][4] =
"\-"
;
$character
[2][1] =
$character
[2][5] =
"\,"
;
return
\
@character
;
};
function
character_G
=>
sub
{
my
@character
=
$_
[0]->default_character(7);
$character
[0][3] =
"\)"
;
$character
[1][5] =
"\'"
;
$character
[3][1] =
$character
[3][2] =
$character
[3][5] =
"_"
;
$character
[0][2] =
"\("
;
$character
[1][3] =
"\`"
;
$character
[0][6] =
"\,"
;
$character
[3][4] =
"\<"
;
$character
[1][4] =
$character
[3][3] =
"\-"
;
$character
[1][2] =
$character
[2][1] =
$character
[2][5] =
$character
[3][0]
=
"\/"
;
$character
[1][6] =
"\|"
;
return
\
@character
;
};
function
character_H
=>
sub
{
my
@character
=
$_
[0]->default_character(7);
$character
[3][3] =
"\("
;
$character
[0][1] =
$character
[3][4] =
"_"
;
$character
[1][0] =
"\'"
;
$character
[1][2] =
"\)"
;
$character
[0][6] =
"\,"
;
$character
[2][2] =
$character
[2][3] =
"\-"
;
$character
[1][5] =
$character
[2][1] =
$character
[2][4] =
$character
[3][0]
=
"\/"
;
return
\
@character
;
};
function
character_I
=>
sub
{
my
@character
=
$_
[0]->default_character(7);
$character
[2][0] =
"\,"
;
$character
[3][1] =
$character
[3][5] =
"\\"
;
$character
[2][1] =
$character
[2][2] =
$character
[2][3] =
"\-"
;
$character
[1][6] =
"\)"
;
$character
[0][5] =
$character
[3][2] =
$character
[3][6] =
"_"
;
$character
[2][5] =
$character
[3][3] =
"\/"
;
$character
[1][4] =
$character
[2][4] =
"\|"
;
return
\
@character
;
};
function
character_J
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[4][0] =
"\<"
;
$character
[0][2] =
$character
[0][3] =
$character
[0][4] =
$character
[2][2]
=
$character
[2][3] =
$character
[2][5] =
$character
[4][1] =
"_"
;
$character
[1][5] =
"\>"
;
$character
[1][1] =
"\("
;
$character
[2][4] =
$character
[3][1] =
$character
[3][3] =
$character
[4][2]
=
"\/"
;
return
\
@character
;
};
function
character_K
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[2][3] =
"\<"
;
$character
[0][5] =
"\,"
;
$character
[2][2] =
"\-"
;
$character
[0][1] =
"_"
;
$character
[1][2] =
$character
[3][4] =
"\)"
;
$character
[1][0] =
"\'"
;
$character
[1][4] =
$character
[2][1] =
$character
[3][0] =
"\/"
;
return
\
@character
;
};
function
character_L
=>
sub
{
my
@character
=
$_
[0]->default_character(4);
$character
[0][3] =
$character
[1][1] =
$character
[3][1] =
$character
[3][2]
=
$character
[3][3] =
"_"
;
$character
[1][2] =
$character
[1][3] =
$character
[2][1] =
$character
[3][0]
=
"\/"
;
return
\
@character
;
};
function
character_M
=>
sub
{
my
@character
=
$_
[0]->default_character(7);
$character
[0][1] =
$character
[0][3] =
$character
[0][5] =
$character
[3][5]
=
"_"
;
$character
[1][2] =
$character
[1][4] =
$character
[1][6] =
"\)"
;
$character
[1][0] =
$character
[3][2] =
"\'"
;
$character
[3][4] =
"\("
;
$character
[2][1] =
$character
[2][3] =
$character
[2][5] =
$character
[3][0]
=
"\/"
;
return
\
@character
;
};
function
character_N
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[0][1] =
$character
[0][3] =
$character
[0][4] =
$character
[3][4]
=
"_"
;
$character
[1][2] =
$character
[1][5] =
"\)"
;
$character
[1][0] =
"\'"
;
$character
[3][3] =
"\("
;
$character
[2][1] =
$character
[2][4] =
$character
[3][0] =
"\/"
;
return
\
@character
;
};
function
character_O
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[3][0] =
"\("
;
$character
[0][3] =
$character
[0][4] =
$character
[3][1] =
$character
[3][2]
=
"_"
;
$character
[1][4] =
"\'"
;
$character
[1][5] =
"\)"
;
$character
[1][2] =
$character
[2][1] =
$character
[2][4] =
$character
[3][3]
=
"\/"
;
return
\
@character
;
};
function
character_P
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[1][2] =
$character
[1][5] =
"\)"
;
$character
[1][0] =
$character
[2][4] =
"\'"
;
$character
[0][1] =
$character
[0][3] =
$character
[0][4] =
"_"
;
$character
[2][2] =
$character
[2][3] =
"\-"
;
$character
[2][1] =
$character
[3][0] =
"\/"
;
return
\
@character
;
};
function
character_Q
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[1][2] =
$character
[2][1] =
$character
[2][4] =
$character
[3][3]
=
"\/"
;
$character
[3][2] =
"\\"
;
$character
[1][5] =
"\)"
;
$character
[0][3] =
$character
[0][4] =
$character
[3][1] =
"_"
;
$character
[3][0] =
"\("
;
$character
[4][3] =
"\`"
;
return
\
@character
;
};
function
character_R
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[1][0] =
$character
[2][4] =
"\'"
;
$character
[1][2] =
$character
[1][5] =
"\)"
;
$character
[0][1] =
$character
[0][3] =
$character
[0][4] =
$character
[3][4]
=
"_"
;
$character
[3][3] =
"\\"
;
$character
[2][2] =
$character
[2][3] =
"\-"
;
$character
[2][1] =
$character
[3][0] =
"\/"
;
return
\
@character
;
};
function
character_S
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[0][2] =
"\("
;
$character
[0][3] =
$character
[2][4] =
"\)"
;
$character
[3][1] =
$character
[3][2] =
$character
[3][4] =
$character
[3][5]
=
"_"
;
$character
[1][3] =
"\\"
;
$character
[1][2] =
$character
[2][1] =
$character
[3][0] =
$character
[3][3]
=
"\/"
;
return
\
@character
;
};
function
character_T
=>
sub
{
my
@character
=
$_
[0]->default_character(8);
$character
[2][1] =
$character
[2][2] =
"\-"
;
$character
[3][0] =
"\("
;
$character
[0][2] =
$character
[0][3] =
$character
[0][4] =
$character
[0][5]
=
$character
[0][6] =
$character
[0][7] =
$character
[3][1] =
"_"
;
$character
[1][4] =
$character
[2][3] =
$character
[3][2] =
"\/"
;
return
\
@character
;
};
function
character_U
=>
sub
{
my
@character
=
$_
[0]->default_character(8);
$character
[3][0] =
"\("
;
$character
[1][0] =
"\'"
;
$character
[1][2] =
"\)"
;
$character
[0][1] =
$character
[0][6] =
$character
[0][7] =
$character
[3][1]
=
$character
[3][2] =
"_"
;
$character
[1][5] =
$character
[2][1] =
$character
[2][4] =
$character
[3][3]
=
"\/"
;
return
\
@character
;
};
function
character_V
=>
sub
{
my
@character
=
$_
[0]->default_character(7);
$character
[1][5] =
$character
[2][4] =
$character
[3][3] =
"\/"
;
$character
[0][1] =
$character
[0][6] =
"_"
;
$character
[1][0] =
"\'"
;
$character
[1][2] =
"\)"
;
$character
[2][1] =
"\("
;
$character
[3][2] =
"\\"
;
return
\
@character
;
};
function
character_W
=>
sub
{
my
@character
=
$_
[0]->default_character(8);
$character
[0][1] =
$character
[0][7] =
$character
[3][1] =
$character
[3][3]
=
"_"
;
$character
[1][2] =
"\)"
;
$character
[1][0] =
"\'"
;
$character
[3][0] =
$character
[3][2] =
"\("
;
$character
[1][6] =
$character
[2][1] =
$character
[2][3] =
$character
[2][5]
=
$character
[3][4] =
"\/"
;
return
\
@character
;
};
function
character_X
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[2][3] =
"X"
;
$character
[1][0] =
"\'"
;
$character
[0][1] =
$character
[3][5] =
"_"
;
$character
[1][2] =
$character
[3][4] =
"\\"
;
$character
[0][5] =
"\,"
;
$character
[1][4] =
$character
[3][2] =
"\/"
;
return
\
@character
;
};
function
character_Y
=>
sub
{
my
@character
=
$_
[0]->default_character(7);
$character
[1][5] =
$character
[2][1] =
$character
[2][4] =
$character
[3][3]
=
$character
[4][1] =
$character
[4][2] =
$character
[5][1] =
"\/"
;
$character
[0][1] =
$character
[3][1] =
$character
[3][2] =
$character
[3][4]
=
"_"
;
$character
[1][0] =
"\'"
;
$character
[1][2] =
"\)"
;
$character
[3][0] =
$character
[5][0] =
"\("
;
$character
[0][6] =
"\,"
;
return
\
@character
;
};
function
character_Z
=>
sub
{
my
@character
=
$_
[0]->default_character(3);
$character
[1][2] =
$character
[2][1] =
$character
[3][0] =
"\/"
;
$character
[0][0] =
$character
[0][1] =
$character
[0][2] =
$character
[3][1]
=
$character
[3][2] =
"_"
;
return
\
@character
;
};
function
character_a
=>
sub
{
my
@character
=
$_
[0]->default_character(5);
$character
[2][1] =
$character
[2][2] =
$character
[3][1] =
$character
[3][4]
=
"_"
;
$character
[3][0] =
"\("
;
$character
[2][3] =
"\."
;
$character
[3][2] =
"\/"
;
$character
[3][3] =
"\|"
;
return
\
@character
;
};
function
character_b
=>
sub
{
my
@character
=
$_
[0]->default_character(4);
$character
[3][2] =
"\)"
;
$character
[2][2] =
$character
[2][3] =
$character
[3][1] =
"_"
;
$character
[1][2] =
$character
[2][1] =
$character
[3][0] =
"\/"
;
return
\
@character
;
};
function
character_c
=>
sub
{
my
@character
=
$_
[0]->default_character(3);
$character
[2][1] =
$character
[3][1] =
$character
[3][2] =
"_"
;
$character
[2][2] =
"\."
;
$character
[3][0] =
"\("
;
return
\
@character
;
};
function
character_d
=>
sub
{
my
@character
=
$_
[0]->default_character(5);
$character
[1][4] =
$character
[2][3] =
$character
[3][2] =
"\/"
;
$character
[3][0] =
"\("
;
$character
[2][1] =
$character
[2][2] =
$character
[3][1] =
$character
[3][3]
=
"_"
;
return
\
@character
;
};
function
character_e
=>
sub
{
my
@character
=
$_
[0]->default_character(3);
$character
[3][0] =
"\<"
;
$character
[2][1] =
$character
[3][2] =
"_"
;
$character
[3][1] =
"\/"
;
return
\
@character
;
};
function
character_f
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[1][5] =
"\)"
;
$character
[3][4] =
"_"
;
$character
[4][2] =
"\>"
;
$character
[5][0] =
"\<"
;
$character
[1][4] =
$character
[2][3] =
$character
[2][4] =
$character
[3][2]
=
$character
[3][3] =
$character
[4][1] =
$character
[5][1] =
"\/"
;
return
\
@character
;
};
function
character_g
=>
sub
{
my
@character
=
$_
[0]->default_character(4);
$character
[3][0] =
"\("
;
$character
[2][1] =
$character
[3][1] =
$character
[3][3] =
"_"
;
$character
[3][2] =
"\)"
;
$character
[2][2] =
"\,"
;
$character
[4][2] =
$character
[5][0] =
"\|"
;
$character
[4][1] =
$character
[5][1] =
"\/"
;
return
\
@character
;
};
function
character_h
=>
sub
{
my
@character
=
$_
[0]->default_character(4);
$character
[1][2] =
$character
[2][1] =
$character
[3][0] =
$character
[3][2]
=
"\/"
;
$character
[2][2] =
$character
[3][3] =
"_"
;
return
\
@character
;
};
function
character_i
=>
sub
{
my
@character
=
$_
[0]->default_character(2);
$character
[2][1] =
"o"
;
$character
[3][0] =
"\<"
;
$character
[3][1] =
"_"
;
return
\
@character
;
};
function
character_j
=>
sub
{
my
@character
=
$_
[0]->default_character(5);
$character
[5][0] =
"\-"
;
$character
[2][4] =
"o"
;
$character
[3][4] =
"_"
;
$character
[5][1] =
"\'"
;
$character
[3][3] =
$character
[4][2] =
"\/"
;
return
\
@character
;
};
function
character_k
=>
sub
{
my
@character
=
$_
[0]->default_character(4);
$character
[1][2] =
$character
[2][1] =
$character
[3][0] =
"\/"
;
$character
[2][2] =
$character
[3][3] =
"_"
;
$character
[3][2] =
"\<"
;
return
\
@character
;
};
function
character_l
=>
sub
{
my
@character
=
$_
[0]->default_character(4);
$character
[1][2] =
$character
[1][3] =
$character
[2][1] =
$character
[2][2]
=
$character
[3][1] =
"\/"
;
$character
[3][0] =
"\<"
;
$character
[0][3] =
$character
[3][2] =
"_"
;
return
\
@character
;
};
function
character_m
=>
sub
{
my
@character
=
$_
[0]->default_character(8);
$character
[2][1] =
$character
[2][2] =
$character
[2][3] =
$character
[2][4]
=
$character
[2][5] =
$character
[2][6] =
$character
[3][7] =
"_"
;
$character
[3][6] =
"\<"
;
$character
[3][0] =
$character
[3][2] =
$character
[3][4] =
"\/"
;
return
\
@character
;
};
function
character_n
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[3][0] =
$character
[3][2] =
"\/"
;
$character
[3][4] =
"\<"
;
$character
[2][1] =
$character
[2][2] =
$character
[2][3] =
$character
[2][4]
=
$character
[3][5] =
"_"
;
return
\
@character
;
};
function
character_o
=>
sub
{
my
@character
=
$_
[0]->default_character(3);
$character
[2][1] =
$character
[2][2] =
$character
[3][1] =
"_"
;
$character
[3][2] =
"\)"
;
$character
[3][0] =
"\("
;
return
\
@character
;
};
function
character_p
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[2][3] =
$character
[3][3] =
$character
[3][5] =
"_"
;
$character
[5][0] =
"\'"
;
$character
[3][4] =
"\)"
;
$character
[3][2] =
$character
[4][1] =
"\/"
;
return
\
@character
;
};
function
character_q
=>
sub
{
my
@character
=
$_
[0]->default_character(4);
$character
[2][1] =
$character
[3][1] =
$character
[3][3] =
"_"
;
$character
[3][2] =
"\)"
;
$character
[4][2] =
"\>"
;
$character
[3][0] =
"\("
;
$character
[2][2] =
"\,"
;
$character
[4][1] =
$character
[5][1] =
"\/"
;
$character
[5][0] =
"\|"
;
return
\
@character
;
};
function
character_r
=>
sub
{
my
@character
=
$_
[0]->default_character(4);
$character
[3][2] =
"\("
;
$character
[2][1] =
$character
[2][2] =
$character
[3][3] =
"_"
;
$character
[3][0] =
"\/"
;
return
\
@character
;
};
function
character_s
=>
sub
{
my
@character
=
$_
[0]->default_character(4);
$character
[3][2] =
"\)"
;
$character
[2][1] =
$character
[3][1] =
$character
[3][3] =
"_"
;
$character
[3][0] =
"\/"
;
return
\
@character
;
};
function
character_t
=>
sub
{
my
@character
=
$_
[0]->default_character(4);
$character
[1][1] =
$character
[1][3] =
$character
[3][1] =
$character
[3][2]
=
"_"
;
$character
[3][0] =
"\<"
;
$character
[1][2] =
$character
[2][1] =
"\/"
;
return
\
@character
;
};
function
character_u
=>
sub
{
my
@character
=
$_
[0]->default_character(4);
$character
[2][1] =
$character
[2][3] =
"\."
;
$character
[3][0] =
"\("
;
$character
[3][1] =
$character
[3][3] =
"_"
;
$character
[3][2] =
"\/"
;
return
\
@character
;
};
function
character_v
=>
sub
{
my
@character
=
$_
[0]->default_character(3);
$character
[2][2] =
"_"
;
$character
[2][0] =
"\,"
;
$character
[3][0] =
"\\"
;
$character
[3][1] =
"\/"
;
return
\
@character
;
};
function
character_w
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[3][1] =
$character
[3][3] =
$character
[3][5] =
"_"
;
$character
[3][0] =
$character
[3][2] =
"\("
;
$character
[2][1] =
$character
[2][3] =
$character
[2][5] =
"\,"
;
$character
[3][4] =
"\/"
;
return
\
@character
;
};
function
character_x
=>
sub
{
my
@character
=
$_
[0]->default_character(5);
$character
[3][0] =
$character
[3][2] =
"\/"
;
$character
[2][2] =
"\."
;
$character
[2][1] =
$character
[3][4] =
"_"
;
$character
[3][3] =
"\\"
;
$character
[2][3] =
"\,"
;
return
\
@character
;
};
function
character_y
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[3][0] =
$character
[3][4] =
$character
[4][3] =
"\/"
;
$character
[2][5] =
"\,"
;
$character
[3][2] =
"\("
;
$character
[2][1] =
$character
[2][2] =
$character
[3][3] =
$character
[3][5]
=
"_"
;
$character
[5][2] =
"\'"
;
return
\
@character
;
};
function
character_z
=>
sub
{
my
@character
=
$_
[0]->default_character(5);
$character
[2][1] =
$character
[2][2] =
$character
[3][4] =
"_"
;
$character
[2][3] =
"\."
;
$character
[4][2] =
"\("
;
$character
[3][0] =
"\/"
;
$character
[3][3] =
$character
[4][3] =
"\|"
;
return
\
@character
;
};
function
character_0
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[1][2] =
$character
[2][1] =
$character
[2][4] =
$character
[3][3]
=
"\/"
;
$character
[1][5] =
"\)"
;
$character
[0][3] =
$character
[0][4] =
$character
[3][1] =
$character
[3][2]
=
"_"
;
$character
[3][0] =
"\("
;
return
\
@character
;
};
function
character_1
=>
sub
{
my
@character
=
$_
[0]->default_character(3);
$character
[0][2] =
"_"
;
$character
[1][2] =
$character
[2][1] =
$character
[3][0] =
"\/"
;
return
\
@character
;
};
function
character_2
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[2][2] =
$character
[2][3] =
"\-"
;
$character
[0][3] =
$character
[0][4] =
$character
[3][1] =
$character
[3][2]
=
"_"
;
$character
[1][5] =
"\)"
;
$character
[2][4] =
"\'"
;
$character
[2][1] =
"\."
;
$character
[3][0] =
"\("
;
return
\
@character
;
};
function
character_3
=>
sub
{
my
@character
=
$_
[0]->default_character(6);
$character
[2][4] =
$character
[3][3] =
"\/"
;
$character
[2][3] =
"\-"
;
$character
[1][5] =
"\)"
;
$character
[0][3] =
$character
[0][4] =
$character
[3][0] =
$character
[3][1]
=
$character
[3][2] =
"_"
;
return
\
@character
;
};
function
character_4
=>
sub
{
my
@character
=
$_
[0]->default_character(5);
$character
[2][0] =
"\'"
;
$character
[2][1] =
$character
[2][2] =
"\-"
;
$character
[1][1] =
$character
[1][4] =
$character
[2][3] =
$character
[3][2]
=
"\/"
;
return
\
@character
;
};
function
character_5
=>
sub
{
my
@character
=
$_
[0]->default_character(5);
$character
[1][1] =
"\/"
;
$character
[2][1] =
$character
[2][2] =
"\-"
;
$character
[2][0] =
"\'"
;
$character
[3][3] =
"\)"
;
$character
[0][2] =
$character
[0][3] =
$character
[0][4] =
$character
[3][0]
=
$character
[3][1] =
$character
[3][2] =
"_"
;
$character
[2][3] =
"\."
;
return
\
@character
;
};
function
character_6
=>
sub
{
my
@character
=
$_
[0]->default_character(4);
$character
[3][0] =
"\("
;
$character
[2][2] =
$character
[3][1] =
$character
[3][2] =
"_"
;
$character
[3][3] =
"\)"
;
$character
[1][2] =
$character
[2][1] =
"\/"
;
return
\
@character
;
};
function
character_7
=>
sub
{
my
@character
=
$_
[0]->default_character(3);
$character
[0][0] =
$character
[0][1] =
$character
[0][2] =
"_"
;
$character
[2][0] =
$character
[2][2] =
"\-"
;
$character
[1][2] =
$character
[2][1] =
$character
[3][0] =
"\/"
;
return
\
@character
;
};
function
character_8
=>
sub
{
my
@character
=
$_
[0]->default_character(5);
$character
[1][1] =
$character
[3][0] =
"\("
;
$character
[2][1] =
"\."
;
$character
[0][2] =
$character
[0][3] =
$character
[3][1] =
$character
[3][2]
=
"_"
;
$character
[2][3] =
"\'"
;
$character
[1][4] =
$character
[3][3] =
"\)"
;
$character
[2][2] =
"\/"
;
return
\
@character
;
};
function
character_9
=>
sub
{
my
@character
=
$_
[0]->default_character(4);
$character
[1][0] =
"\("
;
$character
[1][3] =
"\)"
;
$character
[0][1] =
$character
[0][2] =
$character
[1][1] =
$character
[1][2]
=
"_"
;
$character
[2][2] =
$character
[3][1] =
"\/"
;
return
\
@character
;
};
1;