import Control.Applicative ((<$>))

main :: IO ()
main = do
  solve <$> map read . words <$> getLine >>= print

solve :: [Int] -> Int
solve [a, b, c, d] = (a `mod` d) * (b `mod` d) `mod` d * (c `mod` d) `mod` d