q = 10^9+7

apply n f x = foldr ($) x (replicate n f)

main = readLn >>= print . kenkenpa

kenkenpa 1 = 1
kenkenpa n = head (apply (n-2) (\xs@(_:x1:x2:_) -> mod (x1+x2) q : (take 2 xs)) [2,1,1])