RosettaCodeData/Task/Power-set/Perl-6/power-set-1.pl6

sub powerset(Set $s) { $s.combinations.map(*.Set).Set }
say powerset set <a b c d>;