#!/usr/bin/perl -w END{`stty sane`}`stty cbreak -echo`;$p=27;@b=split//,7x9 .60210x2 .61020602416 . 7x9;for(print"\e[H\e[J";$_=join"",@b and/2/&s/./(" ",qw{:: [] XX <> <>},"#\n#", "#")[$&]/ge&print"\e[;H$_";$p+=$i){read STDIN,$_,1;$i=(-5,5,1,-1)[-65+ord]or$i=0 ;(*y,*z)=\@b[$p+$i,$p+2*$i];$y>3|$z>1&$y>1&&redo;$z|=($y+=4)&2;$y&=~2;@b[$p]-=4}