main :: IO ()
main = do
   (\x -> [h x,m x, s x]) <$> (readLn :: IO Int)
   >>= putStrLn . (intercalate  ":") . map show
    where
    h x = x `div` 3600
    m x = x `mod` 3600 `div` 60
    s x = x `mod` 3600 `mod` 60