@m=((31,(15)x8)x9,(31)x9);$m[$c]|=16,!(@a=grep!($m[$c+$$_[0]]&16+$s*$$_[ 1]),[-1,8],[1,1],[9,4],[-9,2])?$c=pop@p:${($i,$j)=@{$a[rand@a]};$m[$c]&= ~8/$j;push@p,$c;++$u-72?$m[$c+=$i]&=~$j:map$_&=15,@m,$c=$s=1},$s&&select $x,$x,$x,.1*print"\ec",(_)x17,map$_%9?($_-$c?$m[$_]&2?_:$":o).($m[$_]&8? "|":_):"$/|",0..81until$c>79&$s