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

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