module Main where

import Data.List

main :: IO ()
main = getLine >>= putStrLn . intercalate ":" . map show . s2hms . read
  where
    s2hms s = [s `div` 3600, s `mod` 3600 `div` 60, s `mod` 3600 `mod` 60]
