module Main where

import Control.Applicative
import Text.Printf

getInt :: IO Int
getInt = head <$> getInts

getInts :: IO [Int]
getInts = map read . words <$> getLine 

main :: IO ()
main = do
  { ss <- getInt
  ; let (q, s) = divMod ss 60
  ; let (h, m) = divMod q 60
  ; putStrLn (show h ++ ":" ++ show m ++ ":" ++ show s)
  }

