let A, B = System.Console.ReadLine().Split() |> fun a -> a.[0], a.[1]
let LA = String.length A
let LB = String.length B
let L = max LA LB

let a = ((String.replicate (L - LA) "0") + A).ToCharArray()
let b = ((String.replicate (L - LB) "0") + B).ToCharArray()

// pos, (less, more, has3), mod24
let dp = Array3D.zeroCreate (L + 1) 8 24
dp.[0, 0, 0] <- 1

let Pack less more has3 = (less) ||| (more <<< 1) ||| (has3 <<< 2)
let Unpack v = (v &&& 1, v >>> 1 &&& 1, v >>> 2 &&& 1)
let digit c = int c - int '0'

let mo = 1000000007

for i = 0 to L - 1 do
    for j = 0 to 7 do
        let less, more, has3 = Unpack(j)
        for k = 0 to 23 do
            let low = if more = 0 then digit a.[i] else 0
            let high = if less = 0 then digit b.[i] else 9
            for d = low to high do
                let less1 = if less = 1 || d < high then 1 else 0
                let more1 = if more = 1 || d > low then 1 else 0
                let has31 = if has3 = 1 || d = 3 then 1 else 0
                let jj = Pack less1 more1 has31
                let kk = (10 * k + d) % 24
                dp.[i + 1, jj, kk] <- (dp.[i + 1, jj, kk] + dp.[i, j, k]) % mo

let mutable ans = 0

for j = 0 to 7 do
    let _, _, has3 = Unpack(j)
    for k = 0 to 23 do
        if k % 8 <> 0 && (k % 3 = 0 || has3 = 1) then
            ans <- (ans + dp.[L, j, k]) % mo

System.Console.WriteLine(ans)