import Data.List

q = 1000000007

main = readLn >>= print . (\x -> foldl' (\acc n -> (n*(2*n-1)*acc) `mod` q) 1 [1..x])