import Control.Applicative

main = do
  ss <- getLine
  let is = read ss :: Int
  let s = show $ is `mod` 60
  let m = show $ is `div` 60 `mod` 60
  let h = show $ is `div` (60*60)
  let ans = h ++ ":" ++ m ++ ":" ++ s
  putStrLn ans
