var n,m:integer;
    sol:array[1..100]of integer;
    f:text;


    procedure tipar;
    var i:integer;
    begin
    for i:=1 to m do write(f,sol[i]);
    writeln(f);
    end;

    function OK(k,val:integer):boolean;
    var i:byte;
        rez:boolean;

    begin
        rez:=true;
        for i:=1 to k-1 do
                if sol[i]>=val then rez:=false;
        ok:=rez;
    end;


procedure back(k:integer);
var       val:integer;

begin
        if k=m+1 then tipar
        else
        begin
                for val:=1 to n do
                        if OK(k,val)then
                        begin
                                sol[k]:=val;
                                back(k+1);
                        end;

        end;
end;

begin
assign(f,'combinari.in');
reset(f);
readln(f,n,m);
close(f);
back(1);
end.