(defun kombo (liste) ; liste örnek olarak (a b c)
  (if  (null liste) ; liste bos ise
      	 '(nil) ; nil listesi '(()) döndür
      ;;liste dolu ise alttaki let* blogunu calistir
    (let* ((a (car liste)); a = listedeki ilk eleman
	   (rest (kombo (cdr liste))); rest = ilk elemandan sonraki
	                             ; kombinasyonlar (rekursif)
	   (first (mapcar (lambda (x) (cons a x)) rest))
	   ) ; first = ilk eleman + rest 'in map'lenmesi.
	     ; ve sonra append edilmesi yani ornegin:
	     ; first = (a)   rest = (b c)   (b)   (c)    NIL ise
             ; append sonrasinda: (a b c) (a b) (a c) (a)  olacaktir        
      (append first rest)
      ))) ; ve tum kombinasyonlar (a b c) (a b) (a c) (a) (b c) (b) (c) NIL
	  ; seklinde tamamlanacaktır. NIL hicbir sey anlamındadır cunku
          ; kombinasyonun matematik taniminda hicbir sey de dahildir.