main :: IO()
main = do
  input <- readLn :: IO Int
  let second = input `mod` 60
      minute = (input `div` 60) `mod` 60
      hour   = input `div` 3600
  putStrLn $ show hour ++ ":" ++ show minute ++ ":" ++ show second