-- | Main entry point to the application.
module Main where
 
import Control.Applicative
import Control.Monad
import Data.List
import Data.Maybe
import Text.Printf

-- | The main entry point.
main :: IO ()
main = do
    [s] <- concatMap (fmap (read :: String -> Int) . words) . lines <$> getContents
    -- let s = 46979
    printf "%d:%d:%d\n" (s `div` 3600) (s `mod` 3600 `div` 60) (s `mod` 60)