ver_clash_check
function ver_clash_check(r0,c0,n) {
  var ok=true;
  for (r=r0;r<(r0+n+2);r++) {
    for (c=c0;c<(c0+3);c++) {
      var a=get_a(r,c);
      if (a!=7) {ok=false; break;}
    }
    if (!ok) break;
  }
  return ok;
}
hor(n)
function hor(n) {
  for (var k=0;k<500;k++) {
    var r0=Random0(7);
    var c0=Random0(8-n);
    var ok=hor_clash_check(r0,c0,n);
    var v=3;
    if (ok) {
      for (var i=1;i<(n+1);i++) {
        if (i==n) v=4;
        if (n==1) v=1;
        set_a(r0+1,c0+i,v);
        v=2;
      }
      break;
    }
  }
  return ok;
}