main :: IO ()
main = do
  [p, k] <- map (read :: String -> Int) . words <$> getLine
  print $ flip mod 1000000007 $ length [ i | i <- [1 .. (10^p - 1)], i `mod` p == k]