eval( q{ $| = print"\e[2J\n"; $k = '|'; s,,2220;3500731;3522735071;1600715074;1622713,; y;0-4;8|_/%;; s;5;\e[103m;g; s,6,\e[102m,g; s;7;\e[m;g; $/ = $_; $_ = q|hb2Gbb5hhDei4dh0BhlFbi201hoC4do0CdsBbp201hvDev5dv0ChzG|; s;[1-9];>$&;g; s;[A-I];^$&;g; y|A-I|1-9|; { s;^(\w)(\w);; ? ($y = -97 + ord $1, $x = -97 + ord $2): s,^0,, ? $k = '/': s,^([>^])(\d),, ? map { $c = $1; $X = 1 + 3 * $x; $Y = $y * 2; $Z = 4; $" = $/ =~ s;%;$k;r; map { print "\e[${\$Y++};${X}H$_"; $X-- if ++$Z < 7 } split ';', $"; $k = '|'; select $J,$a,$p,$ARGV[0] || .1; '^' eq $c? $y--: $x++ } 1..$2: last; redo } } =~ y/8 \n/ /dr ); die "\e[22H\n" # ANSI Escape sequence -- jumps to line 22