Scanf.scanf "%d %d %d %d" (fun n h m t ->
    let hm = h * 60 + m + (n - 1) * t in
    let h = (hm / 60) mod 24 in
    let m = hm mod 60 in
    Printf.printf "%d\n%d\n" h m
)