print int,$/for sort{($a&-$a)-($b&-$b)%$a||$a-$b}<>