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