print"(@x[grep$i&1<<$_,0..@x])
"until$i++>>(@x=@ARGV)