import Control.Applicative

stohms :: Int -> [Int]
stohms t = [t`div`3600,(t-(t`div`3600)*3600)`div`60,t`mod`60]

main = do
	a <- (stohms.(read::String->Int)) <$> getLine
	putStrLn $ (show (a !! 0)) ++ ":" ++ (show (a !! 1)) ++ ":" ++ (show (a !! 2))