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(sol[i]);
    writeln;
    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
readln(n,m);
back(1);
end.