import Text.Printf

main = do
  input_str <- getLine
  let t = stoi input_str
      h = t `div` 3600
      m = (t `div` 60) `mod` 60
      s = t `mod` 60
  printf "%d:%d:%d\n" h m s

stoi :: String -> Int
stoi str = read str :: Int