#include <iostream>
#include <string>
#include <stack>
#include <queue>
#include <cctype>
#include <algorithm>
#include <vector>
#include <map>
#include <cmath>
#include <stdlib.h>
#include <tuple>
#include <iomanip>
#include <iterator>
#include <stdio.h>
#include <fstream>
#include <time.h>
using namespace std;
const double PI = 3.14159265358979323846;
const long long int MOD = 1000000000 + 7;

struct UnionFind {
    vector<int> parent;

    UnionFind(int N) : parent(N) {
        for (int i = 0; i < N; i++) {
            parent[i] = -1;
        }
    }

    int root(int i) {
        if (parent[i] < 0) {
            return i;
        }
        return (parent[i] = root(parent[i]));
    }

    bool unite(int from, int to) {
        int rx = root(from);
        int ry = root(to);
        if (rx != ry) {
            parent[ry] += parent[rx];
            parent[rx] = ry;

            return true;
        }
        else {
            return false;
        }
    }

    bool same(int x, int y) {
        return root(x) == root(y);
    }

    int treeSize(int x) {
        

        return -parent[root(x)];
    }
};

long long int modpow(long long int base, long long int pow, long long int mod) {
    if (pow == 1) {
        return base;
    }
    else if (pow == 0) {
        return 1;
    }

    if (pow % 2 == 0) {
        auto temp = modpow(base, pow / 2, mod);
        return (temp * temp) % mod;
    }
    else {
        return base * modpow(base, pow - 1, mod) % mod;
    }
}

long long int moddiv(long long int X, long long int Y, long long int mod) {
    auto fermatDiv = modpow(Y, mod - 2, mod);

    return (X * fermatDiv) % mod;
}

long long modCombination(long long left, long long right, long long int mod) {
    long long answer = 1;
    for (long long i = 0; i < right; i++) {
        answer = (answer * (left - i)) % mod;
        answer = moddiv(answer, (i + 1), mod);
    }

    return answer;
}

bool IsPrime(long long N) {
    if (N == 1) {
        return false;
    }
    for (long long i = 2; i * i <= N; i++) {
        if (N % i == 0) {
            return false;
        }
    }

    return true;
}



vector<pair<long long, long long> > prime_factorize(long long N) {
    vector<pair<long long, long long> > res;
    for (long long a = 2; a * a <= N; ++a) {
        if (N % a != 0) continue;
        long long ex = 0; // 指数

        // 割れる限り割り続ける
        while (N % a == 0) {
            ++ex;
            N /= a;
        }

        // その結果を push
        res.push_back({ a, ex });
    }

    // 最後に残った数について
    if (N != 1) res.push_back({ N, 1 });
    return res;
}

long long euclid(long long a, long long b) {
    if (a > b) {
        long long temp = b;
        b = a;
        a = temp;
    }
    if (b % a == 0) {
        return a;
    }
    else {
        return euclid(a, b - a);
    }
}

int main() {
    string s;
    cin >> s;

    int dp[13];
    dp[0] = 1;
    for (int i = 1; i < 13; i++) {
        dp[i] = 0;
    }

    auto size = s.size();
    int mal = 1;
    for (long long i = size - 1; i >= 0; i--) {
        int newDP[13];
        for (int j = 0; j < 13; j++) {
            newDP[j] = 0;
        }

        char c = s[i];
        if (s[i] == '?') {
            // ? の値を1つずつ試す。
            for (int k = 0; k <= 9; k++) {
                for (int j = 0; j < 13; j++) {
                    //1つ前までの余りがjだったところに新しい桁kが加わった時に
                    //余りj1がいくつになるかを求める。余りがj1になるところにjを加える
                    int j1 = (k * mal + j) % 13;
                    newDP[j1] += dp[j];
                    newDP[j1] %= MOD;
                }
            }
        }
        else {
            int k = s[i] - '0';
            for (int j = 0; j < 13; j++) {
                //1つ前までの余りがjだったところに新しい桁kが加わった時に
                //余りj1がいくつになるかを求める。余りがj1になるところにjを加える
                int j1 = (k * mal + j) % 13;
                newDP[j1] += dp[j];
                newDP[j1] %= MOD;
            }
        }

        mal *= 10;
        mal %= 13;

        for (int j = 0; j < 13; j++) {
            //cout << newDP[j] << " ";
            dp[j] = newDP[j];
        }
        cout << endl;
    }

    cout << dp[5] << endl;
    return 0;
}

Measured memory_bytes: 512