(define a (cons 1 (cons 5 (cons 4 ()))))

(define b (cons 2 (cons 9 (cons 7 ()))))

(define zip (lambda (kolik a b fce)
  (if (= kolik 0) ()
    (cons (fce (car a) (car b)) (zip (- kolik 1) (cdr a) (cdr b) fce))
  )
)           )

(define plus (lambda (x y) (+ x y)))

(zip 3 a b plus)