
exception Error of string
let err s = raise (Error s)

let _ =
    let x = Scanf.scanf "%d" (fun x -> x) in
    let h = x / 3600 in
    let m = (x mod 3600) / 60 in
    let s = (x mod 60) in
    Printf.printf "%d:%d:%d\n" h m s
