%%HP: T(3)A(D)F(.);
@ PHI by Joseph K. Horn
@ Requires FACTOR by Jurjen NE Bos (on Goodies Disk #2)
\<< FACTOR OBJ\->
  IF DUP
  THEN 1 # 1d \-> n p
    \<< 1 SWAP
      START DUP n \=/ OVER 'n' STO - 'p' STO*
      NEXT p
    \>> DUP # 1000000000000d < { B\->R } IFT
  ELSE NOT
  END
\>>