<>;for(<>){($a,$b,$k,@a)=glob,0;while($a<$b){$c=$a&-$a;$c/=2while$c>$b-$a;push@a,$c;$a+=$c;}print@a+0," @a "}