#!/usr/bin/perl
`stty cbreak -echo`;END{`stty sane`}$;=0 .($p=" "x10)."0 \n";sub
j{/$*/&&return,s/\S/0/g,$a=$_,s/0/\e[7m \e[m/g,s/^/$p/g,s/ /  /g
,print"\e[;H$_"for$b|$k&$*x length$b;$a}sub n{$_=qw(@J@Eon@J@@J@
dJbEOEHJa HJdEOEaJb @N@Mog@K@ @OEEOJ@@J EO@JoeJ@@ @Oo@oO)[rand
7];$*=$|=s/.../````$&``````\n/g;s/n`/eE/;$k=$_;j}print"\e[H\e[J"
;$b=$;x20 .($;^"\cP"x12);for(n;@_=($k,$*);!$||++$i>6**6/(@ARGV?
$ARGV[0]:1)?$_="B":do{(select$t=chr 1,"","",0)[0]||next;sysread
STDIN,$_,1;$|^=/ /}){$*=1 if($*<<=/A/)>8;$i=$k="  $p \n$k"if/B/;
$k=~s/(.*)`/`$1/g if/C/;$k=~s/`(.*)/$1`/g if/D/;j or($k,$*)=@_,
/B/and$|++and$b=$;x(($b=j)=~s/0{12} \n//g).$b,n||exit}