(defun remove (elem array)
	(cond
		((null array) nil)
		((eql elem (car array)) (cdr array))
		(t (cons (car array) (remove elem (cdr array))))
	)
)

(defun pair (elem array)
	(list elem (remove elem array))
)

(defun pairs (array elems)
	(cond
		((null elems) nil)
		(t (cons (pair (car elems) array) (pairs array (cdr elems))))
	)
)

(print (pairs '(1 2) '(1 2)))