mod' a = a `mod` (10^6+7) main = readLn >>= print . mod' . soroban where soroban x = max (f (x `div` 2)) (f (x `div` 2 + 1)) where f n = x + n * x - n^2