for (y = 1; y <= Bottom; y++) {
  if ([1,y] == "A") {
    r = 40;
  } else if ([1,y] == "B") {
    r = 34;
  } else {
    r = Right;
  }

  for (x = 1; x <= r; x++) {
    if (x > 1) {
      write(",");
    }

    write("\"");
    write(replace([x,y], "\"", "\"\""));
    write("\"");
  }
  writeln();
}