map($b=$p[$_]//=1/(2*$_-1)-$b,1..<>),print abs$b,$/for 1..<>