Var
   b: char;
   t: longint;
   m,n: string;

Procedure number(l: longint);
          var ch: char;
          begin
          if (l > length(n)) then
             writeln(output,m)
          else
              for ch:= '0' to b do
                  if (n[l] <> ch) then
                     begin
                     m:= m + ch;
                     number(l+1);
                     delete (m, l, 1);
                     end;
          end;

Begin
     readln(input, n);
     readln(input, t);
     b:= char(t + ord('0') -1);
     number(1);
End.