let hour x      = div x 3600
let minute x  = div (mod x 3600) 60
let second x  = mod x 60

let time = \x -> show(hour x) ++ ":" ++ show(minute x) ++ ":" ++ show(second x)

main = getLine >>= return.(\t -> read t :: Int) >>= putStrLn.time
    
