
(*********************************************************************

        Adapted from
        Roman E. Maeder: Programming in Mathematica,
        Second Edition, Addison-Wesley, 1991.

 *********************************************************************)


N[f[x_], prec_:$MachinePrecision] := Nf[x, prec]

Nf[x_, prec_:$MachinePrecision] := {x, prec} (* numerical code goes here *)
