(define (solve a1 a2 a3) (cond [(even? (+ a1 a2 a3)) ":-)"] [else ":-("])) (define (main args) (let* ([a1 (read)] [_ (read)] [a2 (read)] [_ (read)] [a3 (read)]) (print (solve a1 a2 a3))) 0)