let () = let h, m = Scanf.scanf "%d:%d " (fun h m -> h, m) in let c, m = (m + 5) / 60, (m + 5) mod 60 in let h = (h + c) mod 24 in Printf.printf "%02d:%02d\n" h m