let f s = (s/3600)::((s mod 3600)/60)::(s mod 60)::[];;

let put s = 
	let rec put' l =
		match l with
		|[] -> print_string "\n"
		|x::xs -> print_int x;if xs != [] then print_string ":";put' xs in
	put' (f s);;

Scanf.sscanf(read_line()) "%d" put;;

