import Control.Applicative ((<$>))
import Data.List (foldl')

main :: IO ()
main = solve <$> read <$> getLine >>= putStrLn

solve :: Int -> String
solve n | n >= 50 = "000000000000"
        | otherwise = let s = show . foldl' (\p x -> p * x `mod` 1000000000000) 1 $ [1..n]
                      in drop (length s - 12) s