(define (zip one two)
        (if (not (and (null? one) (null? two)))
            (cons (list (first one) (first two))
                  (zip (rest one) (rest two)))
            '()))