for (y = Bottom; y > 1; y--) {
  if ([1,y-1] == [1,y]) {
    [2,y-1] += [2,y];
    DeleteRow(y);
  }
}