@m=((31,(15)x8)x8,(31)x9);$m[$c]|=16,!(@a=grep/.$/&!(16+$|*$&&$m[$c+$`]) ,-18,11,94,-92)?$c=pop@p:${$a[rand@a]=~/.$/;push@p,$c;$m[$c]&=~8/$&;$m[$ c+=$`]&=15-$&;++$u-64||map$_&=15,@m,$c=$|=1},$|&&9x4e7,print"\ec",(_)x17 ,map$_%9?($_-$c?$m[$_]&2?_:$":o).($m[$_]&8?l:_):$/.l,0..71until$c>70&$|