let () =
  let n, h, m, t =
    read_line () |> Str.split (Str.regexp_string " ") |>
    List.map (int_of_string) |>
    fun lst -> (List.nth lst 0, List.nth lst 1,
                List.nth lst 2, List.nth lst 3)
  in
  let exmin = (m + ((n - 1) * t)) in
  let exhr = h + exmin / 60 in
  exhr mod 24 |> string_of_int |> print_endline;
  exmin mod 60 |> string_of_int |> print_endline