#!/usr/bin/perl

# 3 - Moved to bits (77 over)
@m=((16,(15)x15)x10,(16)x16);{$m[$c]|=16;(@a=grep!($m[$c+@$_[$l=0]]&(16|
$s*@$_[2])),[-1,1,2],[1,2,1],[-16,4,8],[16,8,4])?${($i,$j,$k)=@{$a[rand@
a]},push@p,$c;$m[$c]&=~$j;$m[$c+=$i]&=~$k;map{$_==16?$p:$_&=15}@m,$c=$s=
1if++$v==150}:($c=pop@p) ;select$q,$q,$q,(print"\ec",(_)x30,map{$l++%16?
($l-1==$c?o:$_&8?_:$").($_&2?"|":_):"$/|"}@m[0..160])/9if$s;$c>158&$s?0: