RosettaCodeData/Task/Power-set/K/power-set-1.k

   ps:{x@&:'+2_vs!_2^#x}