B = Bottom;
R = Right;

for(y=1; y<=B; y++){
  write([1,y]);
  for(x=2; x<=R; x++){
    write("\t");
    write([x,y]);
  }
  writeln("");
}