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

func(rtgen,{sub({
  let(a,unf([x])):
  print_{$({([x][l^]2)[l-]{a}})}
})}):

func(lsqrt,{
  lnewton(
    $({unoccult(rtgen([x]))})([y])
    ,1+[y]/2,[z])}):

`print_
for(<i,1,16,1>,{<unf([i]),
  lsqrt([i],1+[i]/2,20)>,\n})':

print_`sqrt.txt',: