let hour = uncurry(div).(\x -> (x,3600))
let minute = uncurry(div).(\x -> (mod x 3600 , 60) )
let second = uncurry(mod) . (\x -> (x,60))

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

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