function concat(y) {
  r = 8;
  while ([r,y] == "" && r > 2) {
    r--;
  }

  value = [2,y];
  for (x = 3; x <= r; x++) {
    value += "||*" + [x,y];
  }
  return value;
}


for (y = 1; y <= Bottom; y++) {
  value = concat(y);
  while ([1,y+1] == [1,y] && y < Bottom) {
    value += "$$" + concat(y + 1);
    DeleteRow(y + 1);
  }
  [2,y] = value;
}

DeleteCol(3, 8);