writeln([1,1]);
writeln([1,2]);
writeln([1,3]);
for (y = 4; y <= Bottom; y++) {
  for (x = 1; x <= Right; x++) {
    if (x > 1) {
      write(",");
    }

    if (y >= 5) {
      write("\"");
      write(replace([x,y], "\"", "\"\""));
      write("\"");
    } else {
      write([x,y]);
    }
  }
  writeln();
}