for (y = 1; 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();
}