#!/usr/bin/perl

# 9 - everything i want (but 14 over - 11 real chars, but wrapping probs)
@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&$|