import Control.Applicative

hour :: Int -> Int
hour s = div s 3600

minute :: Int ->Int
minute s = div (mod s 3600) 60

second :: Int ->Int
second s = s-(hour s)*3600-(minute s)*60

ans :: (Int,Int,Int)->String
ans (h,m,s)=(show h)++":"++(show m)++":"++(show s)

main :: IO()
main = do
    s<-(\x -> read x :: Int) <$> (getLine)
    putStrLn (ans (hour s,minute s,second s))
