program combinari;
var fi,fo:text;
    n,k:longint;
    a:array[0..20] of longint;
 procedure recursie(t:longint);
 var i:longint;
 begin
   if t=k then begin
               for i:=1 to n do write(a[i],' ');
               writeln;
               end
          else begin
               for i:=a[t]+1 to n do begin
                                     a[t+1]:=i;
                                     recursie(t+1);
                                     end;
               end;
 end;
 begin
 assign(fi,'combinari.in');reset(fi);
 assign(fo,'combinari.out');rewrite(fo);
 readln(n,k);
 recursie(0);
 close(fi);close(fo);
 end.