@m=((31,(15)x15)x10,(31)x16);$m[$c]|=16,!(@a=grep/.$/&!($m[$c+$`]&16+$|* $&),-18,11,164,-162)?$c=pop@p:${$a[rand@a]=~/.$/;push@p,$c;$m[$c]&=~8/$& ;$m[$c+=$`]&=15-$&;++$u-150||map$_&=15,@m,$c=$|=1},$|&&9x2e6&print"\ec", (_)x31,map$_%16?($_-$c?$m[$_]&2?_:$":o).($m[$_]&8?"|":_):"$/|",0..159 until$c>158&$|