Scanf.scanf "%d" (fun a ->
    let t = 600 + a * 60 / 100 in
    Printf.printf "%02d:%02d\n" (t / 60) (t mod 60)
)