-- Getting Started - Watch

import Control.Applicative
import Text.Printf

main :: IO ()
main = do
  [h, m, s] <- timeConvert <$> readLn
  printf "%d:%d:%d\n" h m s

timeConvert :: Int -> [Int]
timeConvert x = [h, m, s]
  where
    (y, s) = divMod x 60
    (h, m) = divMod y 60

