to powerset :set
  if empty? :set [output [[]]]
  localmake "rest powerset butfirst :set
  output sentence  map [sentence first :set ?] :rest  :rest
end

show powerset [1 2 3]
[[1 2 3] [1 2] [1 3] [1] [2 3] [2] [3] []]