($x,$y)=<>=~/\S+/g;
print $x*(1-$y), " ", $x*(1-$y);