import Data.List
g=1000000007

f::[Int]->[Int]
f xs=let xs2=scanr1 (+) xs
     in (map (flip mod g) xs2)

main = do
       e<-getLine
       let n=read e::Int
       print $ head (foldr1 (.) (replicate (n) f) [1,1,1,1,1,1,1,1,1,1]) `mod` g