import qualified Data.Vector.Unboxed as V
main = do
  n <- readLn
  print $ V.last $ iterate (V.scanl1 (\x y -> (x+y)`mod`(10^9+7))) (V.replicate 10 (1::Int)) !! n