var k, i, m, n:byte;
    v:array[1..16] of byte;
    f, g:text;

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

begin
assign (f, 'combinari.in'); reset (f);
assign (g, 'combinari.out'); rewrite (g);
read (f, n, m);
k:=1;
while k > 0 do
  begin
  v[k]:=v[k]+1;
  if v[k] > n then k:=k-1
              else
    begin
    if k = m then
      begin
      for i := 1 to m do write (g, v[i], ' ');
      writeln(g);
      end
             else
      begin
      k:=k+1;
      v[k]:=v[k-1]
      end;
    end;
  end;

close (f); close (g);
end.