var s:array[1..20] of longint;
    i,k,n,m:longint;
begin
  assign(input,'combinari.in'); reset(input);
  assign(output,'combinari.out'); rewrite(output);
  readln(n,m); k:=1;
  while k>0 do begin
    repeat
      inc(s[k]);
    until (s[k]>n)or((s[k]<=n)and(s[k]>s[k-1]));
    if (s[k]<=n) then
      if k=m then begin for i:=1 to m do write(s[i],' '); writeln; end
      else inc(k)
    else begin s[k]:=0; dec(k); end;
  end;
  close(input); close(output);
end.