-- 入力を受け取り、 Int にする
getInt = do
  x <- getLine
  let intValue = read x :: Int
  return intValue

main = do
  inNum <- getInt
  let hours = inNum `div` 3600 :: Int
  let minutes = (inNum `mod` 3600) `div` 60
  let seconds = (inNum `mod` 60)
  putStrLn ((show hours) ++ [':'] ++ (show minutes) ++ [':'] ++ (show seconds))
