program dataa;
var
  fin,fout:text;
  n,m,tot,i,j:integer;
  st:array[1..6]of integer;
  ans:array[1..90,1..6]of integer;
procedure outit;
var
  i:integer;
begin
  inc(tot);
  for i:=1 to m do ans[tot,i]:=st[i];
end;
procedure find(x,y,z:longint);
var
  i,a:integer;
begin
  if x=m then begin st[x]:=z; outit; end
  else
  begin
    if odd(z) then a:=(z-1) div 2
    else a:=z div 2;
    for i:=y to a do
    begin
      st[x]:=i;
      find(x+1,i,z-i);
    end;
  end;
end;
begin
  assign(fin,'dataa.in'); reset(fin);
  assign(fout,'dataa.out'); rewrite(fout);
  read(fin,n,m);
  tot:=0;
  find(1,1,n);
  write(fout,tot);
  for i:=1 to tot do
  begin
    writeln(fout);
    for j:=1 to m-1 do
    write(fout,ans[i,j],' '); write(fout,ans[i,m]);
  end;
  close(fout);
end.