1 (defun powerset (s)
2   (if (null s)
3       (list nil)
4       (let ((rest (powerset (cdr s))))