var v:array[1..20] of longint;
    i, j, n, m:longint;
    f, g:text;

procedure tipar;
  begin
  for i := 1 to m do write (g, v[i], ' ');
  writeln (g);
  end;

procedure bkt (fx:longint);
  begin
  while (v[fx]<n) do
    begin
    v[fx]:=v[fx]+1;
    if fx=m then tipar
            else
      begin
      v[fx+1]:=v[fx];
      bkt(fx+1);
      end;
    end;
  end;

begin
assign (f, 'combinari.in'); reset (f);
assign (g, 'combinari.out'); rewrite (g);

read (f, n, m);

bkt (1);
close (f); close (g);

end.