$a=' x6Xx6Xxw4xXn xwx2nXn2wnxn Xnw2 nwnX ';$b ='x7Xx3wx3Xx wnxnwxXnwx3w nXx2 nxnx 2Xx2 nwnx2X';$c=' x6Xx6Xxw4xXn x4nX nx2- 2nXn w4nX';$d='x6 Xx6Xxw4xXnxo x2nX nxw3 nXnw 4nX';$e='x6X x6Xxw4xXnxox 2nXn xw3n Xnw4 nX';$f='x6Xx 6Xxw4xXnxox2 nXnx w3nX nw4n X';$ g='x 5Xx5 Xx5X xw3x Xnx2 wnXn wnx2 X';$ h='x 7Xxw x5Xn xnx4 Xnxn w3xX nx2w x2nX nwnx nwnX ';$i ='x5 Xx5X x5Xx w3xX nx2w nXnw nx2X ';$j ='x4 Xx4X x4Xx 4Xx4 Xx4X ';$k ='x6 Xxwx 4Xnx nx3X nxnx 2wXn xn/x /Xnw n\w\ X';$l='x3Xxw xXnxnXnxnXnx nXnwnX';$m=' x4Xx 4Xx4 Xx4Xx4Xx4X'; $n='x7Xx7Xx7 Xxw5xXnx2wx2 nXnw nxnw nX';$o='x6Xx 6Xxw4xXnx2wx nXnxnwnnXnw4 nX'; $p=' x4Xx4Xx4Xx4X x4Xx4X';$q=' x4Xx4Xx4Xx4X x4Xx 4X'; $r=' x5Xx 5Xx5 Xxw3 xXnx 2wnX nwnx 2X'; $s=' x6Xx 6Xxw 4xXn xw3n Xnw3 xnXn w4nX ';$t ='x7 Xx3w x3Xx wnxn wxXn wx3w nXx2 nxnx 2Xx2 nwnx 2X'; $u=' x7Xx 7Xx7 Xxwx 3wxX nxnwnxnXnw5n X';$ A='x w5xX nx2w x2nX nxnwnxnXnx2w x2nX nxnx nxnX nwnx nwnX ';$H='xwx3wx Xnxn xnxn Xnxn wnxn Xnx2 wx2nXnxnxnxn Xnwn xnwn X';$ J='x 5wxX x4nxnXx4nxnX xwx2 nxnX nxnw nxnX nw5n X';$P='xw5xX nx2w x2nX nxnw nxnX nx2w 3nXnxnx4Xnwnx4X';foreach(split/[\nY]/,'aYbYcYdYeYfYgYhYiYjYk YlYmYnYoYpYqYrYsYtYuYAYHYJYP'){$$_=~s/\s+//g;$$_=~#figure it tr/xwnX/ _|\n/;$$_=~s/(.)(\d)/$1x$2/ge;@$_=map{[split(//,$_) ]}split(/\n/,$$_);};foreach('J1u2s3t3p6A8n9o0b0h1e2r',#$pony 'q!m#P*f*i(l)j$H&a^c{k]d?g'){A:while (1){foreach(split#lefty /[\d\W]/,$_){$_=shift@$_ or last A;print @$_}print "\n"}}###
In reply to just another japh by jimt
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |