#include <cstdio>
#include <algorithm>
#include <vector>
#include <cstring>
using namespace std;
const int N = 1e5 + 5, mod = 998244353;
int n;
char s[N];
long long f[2][65][8], sum[8], ans;
inline void add (long long &a, long long b) {a = (a + b) % mod;}
int main() {
    scanf ("%d", &n);
    scanf ("%s", s + 1);
    f[0][0][0] = 1;
    for (int i = 1, t = 1; i <= n; i++, t ^= 1) {
        memset(f[t], 0, sizeof(f[t]));
        memset(sum, 0, sizeof(sum));
        for (int j = (i != 1); j <= 62; j++) for (int k = 0; k < 8; k++) {
            if ('0' <= s[i] && s[i] <= '9') {
                if (s[i] - '0' + 1 != j) add(f[t][s[i] - '0' + 1][k | 1], f[t ^ 1][j][k]);
            } else if ('A' <= s[i] && s[i] <= 'Z') {
                if (s[i] - 'A' + 11 != j) add(f[t][s[i] - 'A' + 11][k | 2], f[t ^ 1][j][k]);
            } else if ('a' <= s[i] && s[i] <= 'z') {
                if (s[i] - 'a' + 11 != j) add(f[t][s[i] - 'a' + 11][k | 2], f[t ^ 1][j][k]);
                if (s[i] - 'a' + 37 != j) add(f[t][s[i] - 'a' + 37][k | 4], f[t ^ 1][j][k]);
            } else add(sum[k], f[t ^ 1][j][k]);
        }
        if (s[i] == '?') {
            for (int j = 1; j <= 62; j++) for (int k = 0; k < 8; k++) {
                if (j <= 10) add(f[t][j][k | 1], sum[k] - f[t ^ 1][j][k] + mod);
                else if (j <= 36) add(f[t][j][k | 2], sum[k] - f[t ^ 1][j][k] + mod);
                else add(f[t][j][k | 4], sum[k] - f[t ^ 1][j][k] + mod);
            }
        }
    }   
    for (int j = 1; j <= 62; j++) add(ans, f[n & 1][j][7]);
    printf ("%lld\n", ans);
    return 0;
}