(defun pair-iterative (x y)
(do ((xx x (cdr x)) (yy y (cdr y)) (result nil (append result (list (car xx) (car yy)))))
         (cond
           (if (null xx) result)
           (if (null yy) result))))