module Main where

import Data

main :: IO ()
main = do 
  { ss <- read `fmap` getLine
  ; let (mm,s) = divMod ss (60 :: Int)
  ; let (h,m)  = divMod mm 60
  ; putStrLn $ show h ++ ":" ++ show m ++ ":" ++ show s
  }