var k,i,j,n:byte;
    p:array[1..18]of byte;
    f,fo:text;
    bun:boolean;
begin
assign(f,'combinari.in');
assign(fo,'combinari.out');
reset(f);
rewrite(fo);
readln(f,n,k);
close(f);
i:=1;p[i]:=0;
repeat
 while p[i]<n do
  begin
   inc(p[i]);
   bun:=true;    {
   for k:=1 to i-1 do
    if p[k]=p[i] then bun:=false;}
   if bun then
    if i<=k then
     if i=k then
      begin
       for j:=1 to k do write(fo,p[j],' ');
       writeln(fo)
      end
            else
      begin
       inc(i);
       p[i]:=p[i-1];
      end;
  end;
dec(i);
until i=0;
close(fo);
end.