main :: IO ()
main = do
  [a, b, c, d] <- fmap (map read . words) getLine
  print $ a * b * c `mod` d