#include<stdio.h>
#include<iostream>
#include<algorithm>
using namespace std;
const int base=1000000000+7;
const int maxn=100000+10;

string s;
int n;
long long f[maxn][13]={0};

int main(){
  cin>>s;n=s.length();s="0"+s;
  f[0][0]=1;
  for(int i=0;i<=n-1;i++)
    for(int j=0;j<13;j++){
      if (s[i+1]!='?'){
        int t=(s[i+1]-'0');
        f[i+1][(j*10+t)%13]=(f[i+1][(j*10+t)%13]+f[i][j])%base;
      }
      else{
        for(int t=0;t<=9;t++)
          f[i+1][(j*10+t)%13]=(f[i+1][(j*10+t)%13]+f[i][j])%base;
      }
    }
  long long kq=f[n][5];
  cout<<kq;
}
