#pragma GCC optimize ("Ofast")
#include<bits/stdc++.h>
using namespace std;
inline void rd(char &c){
  int i;
  for(;;){
    i = getchar_unlocked();
    if(i!=' '&&i!='\n'&&i!='\r'&&i!='\t'&&i!=EOF){
      break;
    }
  }
  c = i;
}
inline int rd(char c[]){
  int i;
  int sz = 0;
  for(;;){
    i = getchar_unlocked();
    if(i!=' '&&i!='\n'&&i!='\r'&&i!='\t'&&i!=EOF){
      break;
    }
  }
  c[sz++] = i;
  for(;;){
    i = getchar_unlocked();
    if(i==' '||i=='\n'||i=='\r'||i=='\t'||i==EOF){
      break;
    }
    c[sz++] = i;
  }
  c[sz]='\0';
  return sz;
}
inline void wt_L(char a){
  putchar_unlocked(a);
}
inline void wt_L(int x){
  int s=0;
  int m=0;
  char f[10];
  if(x<0){
    m=1;
    x=-x;
  }
  while(x){
    f[s++]=x%10;
    x/=10;
  }
  if(!s){
    f[s++]=0;
  }
  if(m){
    putchar_unlocked('-');
  }
  while(s--){
    putchar_unlocked(f[s]+'0');
  }
}
inline void wt_L(const char c[]){
  int i=0;
  for(i=0;c[i]!='\0';i++){
    putchar_unlocked(c[i]);
  }
}
int N;
char X[100002];
int main(){
  int i;
  N = rd(X);
  for(i=(0);i<(N);i++){
    X[i] = 10 - (X[i] - '0');
  }
  sort(X,X+N);
  if(!next_permutation(X,X+N)){
    wt_L(-1);
    wt_L('\n');
    return 0;
  }
  for(i=(0);i<(N);i++){
    X[i] = 10 - X[i] + '0';
  }
  if(X[0]=='0'){
    wt_L(-1);
    wt_L('\n');
    return 0;
  }
  wt_L(X);
  wt_L('\n');
  return 0;
}
// cLay varsion 20191111-2

// --- original code ---
// int N;
// char X[100002];
// {
//   rd(X@N);
//   rep(i,N) X[i] = 10 - (X[i] - '0');
//   sort(X,X+N);
//   if(!next_permutation(X,X+N)) wt(-1), return 0;
//   rep(i,N) X[i] = 10 - X[i] + '0';
//   if(X[0]=='0') wt(-1), return 0;
//   wt(X);
// }