Program caractere;
Var C1:ARRAY['a'..'z'] of Char;
    i,a,b,c:Char;
    aux:Char;
    fin,fout:text;
Begin
  Assign(fin,'ordine.in'); Reset(fin);
  Assign(fout,'ordine.out'); Rewrite(fout);
  For i:='a' To 'z' Do
      ReadLn(fin,C1[i]);
  For i:='a' To 'z' Do
    Begin
      If 'a'>'b' Then
      aux:='a';
      a:='b';
      b:='a';
    End;
    Begin
      If 'c'<'a' Then
      aux:='c';
      c:='a';
      a:='c';
    End;
  WriteLn(fout,a,b,c);
  Close(fin);
  Close(fout);
End.