a program that simplifies roots, ie  76^(1/2)==>2*19^(1/2)
(replace SQR with the symbol in the program)

(c) Christopher Browne, 1995

(Christopher_Browne@brown.edu)
-----------------------------------------------------------------
ROOTS
Mcl
"SQROOT Of"?->N
Lbl 1
Isz q  *q is theta*
Frac (N/q) < *does not equal* > => Goto 1
N/q->r
Frac SQROOT(r) <> 0 => Goto 1
SQROOT(r),
"SQROOT"
q