ДекартС

(defun dekartS (mnozA mnozB)
    (rekurzija mnozA mnozA mnozB)
    )

(defun rekurzija (pomosnoA mnozA mnozB)
    (cond
        ((null mnozB) nil)
        ((null pomosnoA)(rekurzija mnozA mnozA (cdr mnozB)))
        ((not(null pomosnoA))(cons (list (car mnozB)(car pomosnoA))(rekurzija (cdr pomosnoA) mnozA mnozB))
        )
    ))

(print (dekartS '(a b c)'(1 2)))