print$,=$",sort{$a/($a&-$a)-$b/($b&-$b)}1..2**<>-1