import Data.List

solve :: Int -> [Int]
solve s = [s `div` 3600 , s `div` 60 `mod` 60 , s `mod` 60]

main :: IO ()
main  = readLn
    >>= return . solve
    >>= mapM_ putStr . intersperse ":" . map show
    >> putStrLn ""