Декарт2

(defun grupiraj (x y)
    (list x y)
    )

(defun pom (a b pom_a)
    (cond
        ((null a) nil)
        ((null b) nil)
        ((null pom_a)(pom a (cdr b) a))
        ((not(null pom_a))(cons (grupiraj (car b)(car pom_a))(pom a b (cdr pom_a))))
        )
    )


(defun dekartS (a b)
    (pom a b a)
    )

(print (dekartS '()'(1 2)))