import Control.Applicative((<$>))
import Data.List(intercalate)

main :: IO ()
main = intercalate ":" . map show . secsToHMS . read <$> getLine >>= putStrLn

secsToHMS :: Int -> [Int]
secsToHMS secs0 =
    let (h, secs1) = secs0 `divMod` 3600
        (m, s) = secs1 `divMod` 60
    in [h, m, s]