-- Try yukicoder
-- author: Leonardone @ NEETSDKASU

main = print . solve . read =<< getLine

solve x
    | x > 200   = 0 -- 因数に2と5が両方12個以上あると下12桁はずっと0、200よりもっと少なくてもいいけど適当
    | otherwise = kaijo 1 x
        where
            kaijo a 0 = a
            kaijo a k = kaijo (a * k `mod` 10 ^ 12) (k - 1)