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

solve :: [Int] -> [Int]
solve (n:h:m:t:_) = [netajikan, netahun]
    where
        mottosleep = t * (n - 1) + m
        netahun    = mottosleep `mod` 60
        netajikan  = (h + (mottosleep `div` 60)) `mod` 24