#include <algorithm>
#include <cmath>
#include <cstdint>
#include <cstdio>
#include <iomanip>
#include <iostream>
#include <map>
#include <queue>
#include <set>
#include <stack>
#include <string>
#include <vector>
using namespace std;
#define rep(i, n) for(int(i) = 0; (i) < (n); (i)++)
#define FOR(i, m, n) for(int(i) = (m); (i) < (n); (i)++)
#define All(v) (v).begin(), (v).end()
#define pb push_back
#define MP(a, b) make_pair((a), (b))
using ll = long long;
using pii = pair<int, int>;
using pll = pair<ll, ll>;
const int INF = 1 << 30;
const ll LINF = 1LL << 60;
const int MOD = 1e9 + 7;

template <uint_fast64_t MOD> class ModInt {
    using u64 = uint_fast64_t;

  public:
    u64 a;

    ModInt(const u64 x = 0) : a(x % MOD) {}
    constexpr u64 &value() { return a; }
    constexpr ModInt operator-() { return a ? MOD - a : 0; }
    constexpr ModInt operator+(const ModInt rhs) {
        return ModInt(*this) += rhs;
    }
    constexpr ModInt operator-(const ModInt rhs) {
        return ModInt(*this) -= rhs;
    }
    constexpr ModInt operator*(const ModInt rhs) {
        return ModInt(*this) *= rhs;
    }
    constexpr ModInt operator/(const ModInt rhs) {
        return ModInt(*this) /= rhs;
    }
    constexpr ModInt &operator+=(const ModInt rhs) {
        a += rhs.a;
        if(a >= MOD) {
            a -= MOD;
        }
        return *this;
    }
    constexpr ModInt &operator-=(const ModInt rhs) {
        if(a < rhs.a) {
            a += MOD;
        }
        a -= rhs.a;
        return *this;
    }
    constexpr ModInt &operator*=(const ModInt rhs) {
        a = a * rhs.a % MOD;
        return *this;
    }
    constexpr ModInt &operator/=(const ModInt rhs) {
        *this *= rhs.inv();
        return *this;
    }

    constexpr bool operator==(const ModInt rhs) { return this->a == rhs.a; }
    constexpr bool operator!=(const ModInt rhs) { return this->a != rhs.a; }
    friend constexpr ostream &operator<<(ostream &os, const ModInt<MOD> &x) {
        return os << x.a;
    }
    friend constexpr istream &operator>>(istream &is, ModInt<MOD> &x) {
        return is >> x.a;
    }

    constexpr ModInt inv() {
        u64 x = a, y = MOD, u = 1, v = 0, t = 0;
        while(y > 0) {
            t = x / y;
            a -= t * y;
            swap(x, y);
            u -= t * v;
            swap(u, v);
        }
        return ModInt(u);
    }

    constexpr ModInt pow(int e) {
        u64 x = 1, p = a;
        while(e > 0) {
            if(e % 2 == 0) {
                p = (p * p) % MOD;
                e /= 2;
            } else {
                x = (x * p) % MOD;
                e--;
            }
        }
        return ModInt(x);
    }
};

using mint = ModInt<MOD>;

int main() {
    string S;
    cin >> S;
    int N = S.size();
    vector<vector<mint>> dp(100010, vector<mint>(13));
    dp[0][0] = 1;
    // dp[i][j]:= [0,i)を見て、余りがjになる通り数
    for(int i = 0; i < N; i++) {
        if(S[i] == '?') {
            for(int j = 0; j < 13; j++) {
                for(int k = 0; k < 10; k++) {
                    dp[i + 1][(10 * j + k) % 13] += dp[i][j];
                }
            }
        } else {
            int num = S[i] - '0';
            for(int j = 0; j < 13; j++) {
                dp[i + 1][(10 * j + num) % 13] += dp[i][j];
            }
        }
    }
    cout << dp[N][5] << endl;
    return 0;
}

Measured memory_bytes: 13696