main :: IO ()
main = interact $ unlines . map show . solve . map (read :: String -> Int) . words

solve :: [Int] -> [Int]
solve (n:h:m:t:_) = [s] ++ [(m + sleepun) `mod` 60]
    where
        sleepun = (n - 1) * t
        sleeph = (h + sleepun `div` 60) `mod` 24
        s = if (m + sleepun) > 60 then (sleeph + (m + sleepun) `div` 60) else sleeph