{"body":"(defun cartesian (l) \n  (cond ((null l) nil) \n        ((null (cdr l)) \n         (mapcar #'list (car l))) \n        (t (mapcan #'(lambda (x) (mapcar #'(lambda (y) (cons y x)) (car l))) \n                   (cartesian (cdr l))))))\n","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/a6T061fj","modified":1518293772,"id":"a6T061fj","size":227,"lines":6,"own_paste":false,"theme":"","date":1518293772}