powerset s:
	local :out [ set{ } ]
	for value in keys s:
		for subset in copy out:
			local :subset+1 copy subset
			set-to subset+1 value true
			push-to out subset+1
	out

!. powerset set{ 1 2 3 4 }