solve 0 xs = last xs
solve n xs = solve (n-1) (step xs)
  where
    step xs = zipWith add xs (scanl add 0 xs) 
    add x y = (x+y)`mod`(10^9+7)

main = do
  n <- readLn
  print $ solve n (replicate 10 1)