
sec2hms :: Int->[Int]
sec2hms sec = [h, m, s]
  where h = sec `quot` 3600
        m = (sec - h * 3600) `quot` 60
        s = sec - h * 3600 - 60 * m

main = do
  sec <- readLn
  let [h, m, s] = sec2hms sec
  putStr $ show $ h
  putChar ':'
  putStr $ show $ m
  putChar ':'
  putStr $ show $ s