{-
	AOJ ITP1_1_D
	title:watch
	@kankichi573
-}
main = do
   s <- getLine
   let sec1 = (read s :: Int)
   let sec  = mod sec1 60
   let min  = mod (div sec1 60) 60
   let hour = div sec1 3600
   putStrLn $ (show hour) ++ ":" ++ (show min) ++ ":" ++ (show sec)