printf(".ds %d \\v'%du'\\e\\L'%du'\\l'\\n(%du'",
p2
, ebase
[p2
], -eht
[p2
], p2
);
printf("\\v'%du'\\h'-\\n(%du'\\*(%d\n", eht
[p2
]-ebase
[p2
], p2
, p2
);
if(dbg
)printf(".\tsqrt: S%d <- S%d;b=%d, h=%d\n",
p2
, p2
, ebase
[p2
], eht
[p2
]);