main = do
    line <- getLine
    putStrLn (format (date (read line)))

date :: Int -> [Int]
date second = [h, m, s]
    where s = mod second 60
          m = mod (div second 60) 60
          h = div second (60 * 60)

format :: [Int] -> String
format [h, m, s] = (show h) ++ ":" ++ (show m) ++ ":" ++ (show s)

