getWakeUpTime :: [Int] -> [Int]
getWakeUpTime (n : h : m : t : _) = [wh, wm]
    where
        w = flip mod 1440 $ h * 60 + m + t * (n - 1)
        (wh, wm) = divMod w 60

main :: IO ()
main = putStr . unlines . map show .
    getWakeUpTime . map read . words =<< getLine