($n,$_)=<>;print$m=2*$n-.5/y/ /+/*eval,$",$n-$m