($xa,$ya)=glob<>;
($xb,$yb)=glob<>;
print$yb-($yb-$ya)/($xb+$xa)*$xb,$/