rInt :: String -> Int
rInt str = read str :: Int

divisors :: Int -> Int -> Int
divisors a b
  |a `mod` b  == 0 = 1
  |otherwise      = 0
  
main :: IO ()
main = do
  input <- getLine
  let hour = rInt input `div` 3600 
      min  = rInt input `div` 60 - hour * 60
      sec  = rInt input `mod` 60
  putStrLn $ show hour ++ ":" ++  show min ++ ":" ++ show sec 