print"(@x[grep{$i&1<<$_}0..@x])
"while$i++<2**(@x=@ARGV)'