program C;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  m, n, i, j: integer;
begin
  readln (n, m);
  for i := 1 to n do begin
    for j := 1 to m - 1 do begin
      write (i,',', j,' ');
    end;
    write (i,',',m);
    writeln;
  end;
  readln;
  readln;
end.