import Control.Applicative

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

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