import Control.Applicative

main :: IO ()
main = solve <$> readLn >>= print

solve :: Int -> Int
solve n = sum ((iterate f (replicate 10 1)) !! (n - 1)) `mod` p
  where
    p = 1000000007
    f = scanl1 (\a b -> (a + b) `mod` p)