(define listaN (cons 1 (cons 2(cons 3(cons 4 empty)))))

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

(suma-lista listaN)

(define (primer-par lista)
(cond
  [(= (modulo(first lista)2)0) (first lista)]
  [(= (modulo (first (rest lista))2)0) (first (rest lista))]
  [(= (modulo (first (rest (rest lista)))2)0) (first (rest(rest lista)))]
  [(= (modulo (first (rest (rest (rest lista))))2)0) (first (rest (rest (rest lista))))]
  [else "ninguno es digno"]
  )
  )
(primer-par listaN)

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