(defun zip (&rest sequences)
  (apply #'map 'list (lambda (&rest args) `(,@args)) sequences))


(zip '(1 2 3) '(2 3 4))
;; => ((1 2) (2 3) (3 4))