var r,s:ansistring;
    i,j,k,n:longint;
begin
readln(s);n:=length(s);
 for i:=97 to 122 do
  for j:=0 to n-1 do begin
   if i=ord(s[j]) then begin
    inc(k);
    r[k]:=chr(ord(i));
    write(ord(s[j]),' ',r[k]);readln;
   end;
  end;
  for i:=1 to k do write(r[i]);
end.