(defun decart(lst1 lst2)
(let ((newlist nil) (oldlist lst1))
(loop
    (cond ((eql oldlist nil) (return newlist)))
    (if (eql newlist nil)
        (setq newlist (mapcar (lambda (a) (list (car oldlist) a)) lst2))
        (setq newlist (append newlist
            (mapcar (lambda (a) (list (car oldlist) a)) lst2)))
    )
    (setq oldlist (cdr oldlist))
)))