var s:array[0..18]of byte;
    n,k,i:byte;

procedure afsol;
begin
for i:=1 to k-1 do write(s[i],' ');
writeln(s[k]);
end;

procedure back;
var p:byte;
begin
fillchar(s,sizeof(s),0);
p:=1;
repeat
if s[p]=0 then s[p]:=s[p-1]+1
          else s[p]:=s[p]+1;
if s[p]+k-p>n then begin
                   s[p]:=0;
                   p:=p-1;
                  end
              else
  if p=k then afsol
         else p:=p+1;
until p<1;
end;

begin
assign(input,'combinari.in');
reset(input);
assign(output,'combinari.out');
rewrite(output);
read(n,k);
back;
close(input);
close(output);
end.