for (x = 1; x <= Right; x++) {
  s = [x,1];
  for (y = 2; y <= Bottom; y++) {
    s = s + "/" + [x,y];
  }
  [x,1] = s;
}
DeleteRow(2, Bottom);