#lang sicp
(define (subsets s)
  (if (null? s)
      (list nil)
      (let ((rest (subsets (cdr s))))
        (append rest (map 
                        (lambda (lst) 
                          (append (list (car s)) lst))
                        rest)))))
(subsets (list 1 2 3))