module Main where

import Control.Applicative
import Text.Printf

so :: Int -> String
so t = printf "%d:%d:%d" h m s
  where
    h = t`div`3600
    m = (t-h*3600)`div`60
    s = t-h*3600-m*60

main :: IO ()
main = putStrLn =<< so <$> readLn