<>;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 "}