import Control.Applicative
import Text.Printf

main :: IO()
main = do
    fullSec <- read <$> getLine :: IO Int
    let h = fullSec `div` 3600
        m = (fullSec `mod` 3600) `div` 60
        s = (fullSec `mod` 3600) `mod` 60
    printf "%d:%d:%d\n" h m s