-- ????¨?

import           Control.Applicative
import           Text.Printf

main :: IO ()
main = do
  fullSec <- read <$> getLine :: IO Int
  let h = fullSec `div` (60 * 60)
      m = (fullSec `mod` (60 * 60)) `div` 60
      s = fullSec `mod` (60 * 60) `mod` 60

  printf "%d:%d:%d\n" h m s