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

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

solve :: Integer -> String
solve n | n >= 50 = "000000000000"
        | otherwise = let s = show . product $ [1..n]
                      in drop (length s - 12) s