(defparameter I (read-from-string (concatenate 'string "(" (read-line) ")")))
;(print I)
(defparameter N (nth 0 I))
(defparameter H (nth 1 I))
(defparameter M (nth 2 I))
(defparameter TT (nth 3 I))

(setq N (decf N))
(setq TT (* TT N))
(setq M (+ M TT))

(setq H (+ H (floor M 60)))
(setq H (mod H 24))
(setq M (mod M 60))

(format 't "~d~%~d~%" H M)