%%HP: T(3)A(D)F(.);
@ QRAD, converts real number to Quotient of RADicals, by Joe Horn
@ Calls the SSQR program (also on this disk)
\<< \->NUM RCLF SWAP SQ 10 FIX \->Q
  IF DUP TYPE
  THEN OBJ\-> DROP2 SSQR SWAP SSQR SWAP /
  ELSE SSQR
  END
  IF DUP TYPE NOT
  THEN \->Q
  END SWAP STOF
\>>