(define listaN (cons 2 (cons 3 (cons 7 (cons 8 empty)))))


( define ( suma-lista lista) ( +  (first lista) (first(rest lista))
                                  (first(rest (rest lista))) (first (rest (rest (rest lista))))))

( suma-lista listaN)

(define (lista-par lista) ( cond [ ( = 0 (modulo (first lista) 2)) (first lista)]
                                 [ ( = 0 (modulo (first (rest lista)) 2)) (first (rest lista))]
                                 [ ( = 0 (modulo (first (rest(rest lista))) 2)) (first (rest(rest lista)))]
                                 [ ( = 0 (modulo (first (rest(rest (rest lista))))2)) (first (rest(rest (rest lista))))]
                                 [ else "no hay par"]))

( lista-par listaN)

(define (lista-multiplo lista) ( cond [ ( = 0 (modulo (first lista) 7)) (first lista)]
                                 [ ( = 0 (modulo (first (rest lista)) 7)) (first (rest lista))]
                                 [ ( = 0 (modulo (first (rest(rest lista))) 7)) (first (rest(rest lista)))]
                                 [ ( = 0 (modulo (first (rest(rest (rest lista))))7)) (first (rest(rest (rest lista))))]
                                 [ else "ninguno es multiplo de 7"]))
(lista-multiplo listaN)