program combinari;
  var f:text;
      n,k:byte;
      a:array[0..18] of byte;
      buf:array [1..100000] of byte;
procedure back(m:byte);
  var i,j:byte;
      b:boolean;
  begin
    if m=k+1 then begin
                    for i:=1 to k do write(f,a[i],' ');
                    writeln(f);
                  end
             else begin
                    for i:=1 to n do
                      begin
                        b:=true;
                        for j:=1 to m-1 do
                          if a[j]=i then b:=false;
                        if b and (i>a[m-1]) then
                          begin
                            a[m]:=i;
                            back(m+1);
                          end;
                      end;
                  end;
  end;
begin
  assign(f,'combinari.in');
  reset(f);
  readln(f,n,k);
  close(f);
  assign(f,'combinari.out');
  rewrite(f);
  settextbuf(f,buf);
  back(1);
  close(f);
end.