let minute_to_hour m = (m / 60) mod 24 let waketime n h m t = let rec wakeminutes n' m' = if n' = 1 then let hour = minute_to_hour m' in let minute = m' mod 60 in Printf.printf "%d\n%d\n" hour minute else wakeminutes (n'- 1) (m' + t) in wakeminutes n (h * 60 + m) let () = Scanf.sscanf (read_line ()) "%d %d %d %d" waketime