S = gets.chomp.chars
n = S.length

MOD = 10**9 + 7
dp = Array.new(n+1).map{Array.new(13,0)}

# 0桁目まで見たときのあまりが0のものは1個
dp[0][0] = 1

n.times do |i|
  nums = S[n-i-1] == "?" ? (0..9).to_a : [S[n-i-1].to_i]

  # 13 で割ったあまりごとに確認する
  13.times do |mod|
    # modは0~12
    # dp[i][mod] i桁目までの余り
    # 次の桁は mod + addition * dになる
    # dはそのときの数値
    nums.each do |d|
      # 次の桁に遷移する
      dp[i+1][(mod + d * 10**i ) % 13] += dp[i][mod] % MOD
    end
  end
end

puts dp[n][5] %= MOD
