(defun main (&rest argv)
  (declare (ignore argv))
  (let* ((a (read))
         (b (read))
         (c (read))
         (d (read)))
    (format t "~d~%" (mod (* a b c) d))))

(main)