module Main where
 
main :: IO ()
main = readLn >>= print . solve
 
m :: Integer
m = 1000007
 
solve :: Integer -> Integer
solve n = let x = n `div` 2
              y = n - x
          in  (x * y + n) `mod` m