module Utils where

import Control.Applicative

getInt :: IO Int
getInt = head <$> getInts

getInts :: IO [Int]
getInts = map read . words <$> getLine

main :: IO ()
main = do
  {ss <- getInt
   ; let (q, s) = divMod ss 60
   ; let (h, s) = divMod q 60
   ; putStrLn (show h ++ ":" ++ show m ++ ":"  ++ show s)
   }
