main = do
 [a,b,c,d] <- map read . words <$> getLine
 print $ product [a,b,c] `mod` d