#!/usr/bin/perl
         sub l{   print@_}sub p{   until($n++>18)   {$e=0;    until
         ($e>78   ){$o=$b[$n][$e   ++];;;;l$o?$o:   "\x20"    };;;l
         "\xa"}   ;;;;l    "\xa"   }@a=       qw{   0x006a    00 00
         330000   12210    51000   4100     0041    41 0121 0121 12
         x75 05   06 1121 012100   0121    1211     x00000000000073
         04 012   23 11    22 41   04 x74 001       18 31000000 210
         210 05   11000    11310   11310 230        x61 04    28 23
 0051    001211   01310    13110   0x6e             05 035    11130
  011131 023100   01310    x006f   0005             43 230    11210
    0121 03 x74   01 49    31 21   2100             05 110    11310
      1131 2300   x0068    01 56   0021             21 210    11 14
        1131000   01310    01310   0x72             04 069    31220

2112 22 11 01 0x65 04 63 33 2131 14 01 13 x0068 12 17 21 21 21 11 14
1131 0131 0131 x61 15 24 23 51 1211 0131 1311 0x63 16 31 23 11 01 13
x6b 012 36 31 31 31 2131 1121 12 0131 0131 x72 15 48 3122 2112 22 11

01 x65 15 42 33 2131 14 01 13 x50 10 33 01 x45 10 34 01 x52 10 35 01
x4c 10 36 010};do{if($a[$e]=~/x/){$c=chr(oct($a[$e++]));$t=$a[$e++];
$l=$a[$e]}else{$w=$l;$o=1;do{$a[$e]=~s/(.)//;$n=$1;$o=$o?0:$c;while(
   $n--){;$b[$t][$w++]=$o}}while($a[$e]);$t++}}while($a[++$e]);p;