main :: IO ()
main = do
    n <- readLn
    print $ f n

f :: Integer -> Integer
f 0 = 1
f 1 = 1
f m = (m `mod` 1000000007) * (f (m - 1) `mod` 1000000007) `mod` 1000000007