(define (potset s)
      (if (eqv? s '())
       '(())
       (let ((ls (potset (cdr s))))
        (append ls (map (lambda (l) (cons (car s) l)) ls)))))