($l,$r)=glob<>; $d=<>; $w=<>; print$d/($l+$r)*$w