16 lines
158 B
Perl
16 lines
158 B
Perl
|
X::=~_
|
||
|
|
Y::=~*
|
||
|
|
Z::=~`
|
||
|
|
_.::=._X
|
||
|
|
_*::=*_Y
|
||
|
|
._|::=.Z-|
|
||
|
|
*_|::=Z
|
||
|
|
..-::=.-.
|
||
|
|
**-::=*-.
|
||
|
|
*.-::=*-*
|
||
|
|
.*-::=.-*
|
||
|
|
@.-::=@_.
|
||
|
|
@*-::=@_*
|
||
|
|
::=
|
||
|
|
@_*...............................|
|