(define (suma lista) (+ (first lista) (first (rest lista)) (first (rest (rest lista))) (first (rest (rest (rest lista))))))
(define lista (cons 1 (cons 2 (cons 3 (cons 4 empty)))))
(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 "no hay ninguno par"]
                             ))
(define (multiplo-siete 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 "no hay ninguno multiplo de siete"]
                             ))