function f(x)
! met. Newton
common p

!f =exp(x) -p*x*x


END
