RosettaCodeData/Task/Power-set/Smalltalk/power-set-2.st

#(1 2 4) power do: [ :each |
    each asArray printNl ].

#( 'A' 'C' 'E' ) power do: [ :each |
    each asArray printNl ].