fun readInt () = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) val () = let val n = readInt () val h = readInt () val m = readInt () val t = readInt () val startTimeInMinute = h * 60 + m val wakeUpTimeInMinute = startTimeInMinute + t * (n - 1) val ansHour = (wakeUpTimeInMinute div 60) mod 24 val ansMinute = wakeUpTimeInMinute mod 60 in print (Int.toString ansHour ^ "\n" ^ Int.toString ansMinute ^ "\n") end