Problem: You are given two strings s and t consisting of small Latin letters, string s can also contain '?' characters. 

Suitability of string s is calculated by following metric:

Any two letters can be swapped positions, these operations can be performed arbitrary number of times over any pair of positions. Among all resulting strings s, you choose the one with the largest number of non-intersecting occurrences of string t. Suitability is this number of occurrences.

You should replace all '?' characters with small Latin letters in such a way that the suitability of string s is maximal.

Input

The first line contains string s (1 ≤ |s| ≤ 106).

The second line contains string t (1 ≤ |t| ≤ 106).

Output

Print string s with '?' replaced with small Latin letters in such a way that suitability of that string is maximal.

If there are multiple strings with maximal suitability then print any of them.

Examples

Input

?aa?
ab


Output

baab


Input

??b?
za


Output

azbz


Input

abcd
abacaba


Output

abcd

Note

In the first example string "baab" can be transformed to "abab" with swaps, this one has suitability of 2. That means that string "baab" also has suitability of 2.

In the second example maximal suitability you can achieve is 1 and there are several dozens of such strings, "azbz" is just one of them.

In the third example there are no '?' characters and the suitability of the string is 0.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
char s[1000100];
char t[1000100];
int main(void) {
  scanf("%s", s);
  scanf("%s", t);
  int sl = strlen(s);
  int tl = strlen(t);
  vector<long long int> sf(26), tf(26);
  long long int que = 0;
  for (int i = (int)(0); i < (int)(sl); i++) {
    if (s[i] == '?')
      que += 1;
    else
      sf[s[i] - 'a'] += 1;
  }
  for (int i = (int)(0); i < (int)(tl); i++) {
    tf[t[i] - 'a'] += 1;
  }
  long long int pass = 0, fail = sl / tl + 1;
  while (fail - pass > 1) {
    long long int mid = (fail + pass) / 2;
    long long int sh = 0;
    for (int i = (int)(0); i < (int)(26); i++) {
      if (sf[i] < mid * tf[i]) {
        sh += mid * tf[i] - sf[i];
      }
    }
    if (sh <= que) {
      pass = mid;
    } else {
      fail = mid;
    }
  }
  vector<long long int> rem(26);
  for (int i = (int)(0); i < (int)(26); i++) {
    rem[i] = max(0LL, pass * tf[i] - sf[i]);
  }
  int pos = 0;
  for (int i = (int)(0); i < (int)(sl); i++) {
    if (s[i] != '?') {
      continue;
    }
    while (pos < 26 && rem[pos] <= 0) pos++;
    s[i] = pos < 26 ? 'a' + pos : 'x';
    if (pos < 26) {
      rem[pos]--;
    }
  }
  puts(s);
}