import Data.List

main = do
  secondStr <- getLine
  putStrLn $ concat . intersperse ":" . map show . convertSecond $ read secondStr

convertSecond :: Int -> [Int]
convertSecond second = let hour = second `div` 3600
                           minite = (second `mod` 3600) `div` 60
                           sec = (second `mod` 3600) `mod` 60
                       in hour:minite:sec:[]