(define powerset
  (lambda(lista)
    (cond
      [(null? lista)'(())]
      [else (let
                (
                 (lista_sin1 (powerset (cdr lista)))
                 )
              (append (cartesian-product (list(car lista))lista_sin1)
                      lista_sin1))])))