include(`../prg/largenum.txt'):

func(lderiv,{
  (([x]([y][l+][z]))[l-]
    ([x]([y][l-][z])))[l/]
      (2[l*][z])}):

func(llinapx,{
  [y] [l-] (([x]([y])) [l/]
    lderiv([x],[y],[z]))}):

func(lnewton,{
  iff(
  (lgreater(0.((for(<i,1,[z],1>,{0})))1,
    largeabs(([x]([y])))))
  |(lgreater(largeabs(([x]([y]))),
    1000000)),
  {largetrim([y],[z])},
  {lnewton([x],
  llinapx([x],largetrim([y],[z]),0.001),[z])})}):

print_`largecalc.txt',: