var s:string;

procedure work(s:string);
var a:array['a'..'z'] of integer;
    len,i,j:integer;
    ch:char;

begin
  fillchar(a,sizeof(a),0);
  len:=length(s);
  ch:=s[len];
  i:=len-1;
  while (i>0) and (ch<=s[i]) do begin
    inc(a[s[i]]);
    dec(i);
  end;
  if i<>0 then inc(a[s[i]]);
  if i=0 then writeln('No Successor')
  else begin
    for j:=1 to i-1 do write(s[j]);
    write(ch);
    for ch:='a' to 'z' do
      while a[ch]<>0 do begin write(ch);dec(a[ch]);end;
    writeln;
  end;
end;

begin
  repeat
    readln(s);
    if s='#' then break;
    work(s);
  until false;
end.