main= getLine >>= putStrLn.(\[a,b,c]->a++":"++b++":"++c).compute
	where
        aa::Integer->[Integer]
        bb::[Integer]->[Integer]
        cc::[Integer]->[Integer]
        compute::String->[String]
	aa=(\s->[s,s`div`3600])
	bb=(\[s,h]->[h,s-h*3600])
	cc=(\[h,m]->[h,m`div`60,m-(m`div`60)*60])
	compute=map show .cc.bb.aa.(read::Integer)