solve :: Integral a => a -> a
solve n = let x = div n 2 in flip mod 1000007 $ (x + 1) * (n - x + 1) - 1

main :: IO ()
main = print . solve =<< readLn