import Control.Applicative
import Data.List
entry = ((((show . (`mod` 60)) .) . (flip div) . (60^)) <$> [2, 1, 0] <*>) . pure
fmt = intercalate ":"
main = getLine >>= return . fmt . entry . (read :: String -> Int) >>= putStrLn