(defun foo (x l)
	(if (endp l) 
		nil
	    (foo (append (first l) (list x)))))