import Control.Applicative ((<$>))
import Control.Monad

main :: IO ()
main = do
  solve <$> getl (map read . words) >>= mapM_ print

solve :: [Int] -> [Int]
solve [n, h, m, t] =
  let n' = (n - 1) `mod` 1440
  in f $ n' * t + 60 * h + m
  where
    f x =
      let (h', m') = (x `mod` 1440) `divMod` 60
      in [h', m']

getl :: (String -> a) -> IO a
getl f = f <$> getLine