Problem: You are given a string s consisting of |s| small english letters.

In one move you can replace any character of this string to the next character in alphabetical order (a will be replaced with b, s will be replaced with t, etc.). You cannot replace letter z with any other letter.

Your target is to make some number of moves (not necessary minimal) to get string abcdefghijklmnopqrstuvwxyz (english alphabet) as a subsequence. Subsequence of the string is the string that is obtained by deleting characters at some positions. You need to print the string that will be obtained from the given string and will be contain english alphabet as a subsequence or say that it is impossible.

Input

The only one line of the input consisting of the string s consisting of |s| (1 ≤ |s| ≤ 105) small english letters.

Output

If you can get a string that can be obtained from the given string and will contain english alphabet as a subsequence, print it. Otherwise print «-1» (without quotes).

Examples

Input

aacceeggiikkmmooqqssuuwwyy


Output

abcdefghijklmnopqrstuvwxyz


Input

thereisnoanswer


Output

-1

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
void err(istream_iterator<string> it) {}
template <typename T, typename... Args>
void err(istream_iterator<string> it, T a, Args... args) {
  cerr << *it << " = " << a << endl;
  err(++it, args...);
}
template <typename T>
ostream& operator<<(ostream& os, const vector<T>& p) {
  os << "[ ";
  for (T x : p) os << x << " ";
  os << "]" << endl;
  return os;
}
template <typename T>
ostream& operator<<(ostream& os, const set<T>& p) {
  os << "{ ";
  for (T x : p) os << x << " ";
  os << "}" << endl;
  return os;
}
template <typename T>
ostream& operator<<(ostream& os, const multiset<T>& p) {
  os << "{ ";
  for (T x : p) os << x << " ";
  os << "}" << endl;
  return os;
}
template <typename Tk, typename Tv>
ostream& operator<<(ostream& os, const map<Tk, Tv>& p) {
  os << "{ ";
  for (pair<Tk, Tv> x : p) os << x << " ";
  os << "}" << endl;
  return os;
}
template <typename Tk, typename Tv>
ostream& operator<<(ostream& os, const pair<Tk, Tv>& p) {
  os << "{" << p.first << ',' << p.second << "}";
  return os;
}
template <typename Tk, typename Tv, typename Tx>
ostream& operator<<(ostream& os, const tuple<Tk, Tv, Tx>& p) {
  os << "{" << get<0>(p) << ',' << get<1>(p) << ',' << get<2>(p) << "}";
  return os;
}
const long long int mod = 1000000007;
const long long int N = 100005;
inline long long int powmod(long long int a, long long int b,
                            long long int mod) {
  long long int res = 1;
  a %= mod;
  assert(b >= 0);
  for (; b; b >>= 1) {
    if (b & 1) res = res * a % mod;
    a = a * a % mod;
  }
  return res;
}
inline long long int mulmod(long long int a, long long int b, long long int c) {
  if (!b) return 0;
  long long int x = mulmod(a, b / 2, c);
  if (b & 1) return (x + x + a) % c;
  return (x + x) % c;
}
long long int dp[N][27], par[N][27];
void solve() {
  string s;
  cin >> s;
  if (s.size() < 26) {
    cout << "-1\n";
    return;
  }
  int n = s.length();
  char curchar = 'z';
  for (int i = n - 1; i >= 0; i--) {
    if (curchar < 'a') break;
    if (s[i] <= curchar) {
      s[i] = curchar;
      curchar--;
    }
  }
  if (curchar < 'a')
    cout << s << endl;
  else
    cout << "-1\n";
  return;
}
int main() {
  ios_base::sync_with_stdio(false);
  cin.tie(NULL);
  for (long blockTime = 0;
       (blockTime == 0 ? (blockTime = clock()) != 0 : false);
       fprintf(stderr, "%s time : %.4fs\n", "Total",
               (double)(clock() - blockTime) / CLOCKS_PER_SEC),
            fflush(stderr)) {
    long long int t = 1;
    while (t--) {
      solve();
    }
  }
  return 0;
}