fact_mod n m = inner n 1
  where inner 0 acc = acc
        inner k acc = inner (k - 1) (mod (acc * k) m)

main = interact $ (++ "\n") . show . ans . read . head . lines
  where p = 10 ^ 9 + 7
        ans n = fact_mod n p