RosettaCodeData/Task/Non-continuous-subsequences/Racket/non-continuous-subsequences-1.rkt

(define (subsets l)
  (if (null? l) '(())
      (append (for/list ([l2 (subsets (cdr l))]) (cons (car l) l2))
              (subsets (cdr l)))))