<>;for(<>){ ($p,$k)=glob; $z=0; $z=(1-$p)*$z+1for 1..$k; print$z,$/; }