var a:array[0..18] of longint;   
    n,k:longint;   
procedure comb(l:longint);   
var i:longint;   
begin  
     if l=k then begin  
        for i:=1 to k do  
            write(a[i],' ');   
        writeln;   
        end  
     else begin  
          for i:=a[l]+1 to n do begin  
              a[l+1]:=i;   
              comb(l+1);   
              end;   
          end;   
end;   
begin  
assign(input,'combinari.in');   
reset(input);   
read(input,n,k);   
close(input);   
assign(output,'combinari.out');   
rewrite(output);   
comb(0);   
close(output);   
end.