q = 1000000007

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