#!/usr/bin/perl

# 2 - a single large sig (142 over)
$p=1;{@a=grep!$v{$_}&$_>47&$_<751,($p-1)%47&&$m[$p-1]ne"|"?$p-2:0,($p+2)
%47&&$m[$p+1]ne"|"?$p+2:0,$m[$p]ne _?$p+47:0,$m[$p-47]ne _?$p-47:0;$m[$p
]||=_;if($l){print$_?$_%47?$p-$_?$m[$_]:o:"$/|":"\e[H"for 0..750;$p>749?
exit:select$q,$q,$q,.1}@a?(($r=$a[rand@a])-$p)**2>4?$m[$r>$p?$p:$r]=$":(
$m[$r>$p?$r-1:$r+1]=_):($p=pop@v,redo);push@v,$v{$p=$r}=$p;if(keys%v>344
&!$l){$m[$_]||=$_<47|$_==$p?_:"|"for 0..750;%v=$p=$l=print"\ec"}redo}