; LONGCALC script
; Use as LONGCALC 999 (factorit.scr) SCR
; Needs improving.

wln (Doing factorit.scr    www.merlyn.demon.co.uk   >= 2003-12-28) wrt wln

dup /q0 fed (Factoring ) wrt q0 wrt wln

( q0 swp mod (qd wrt wln) if0 ) 2 q0 2 div for

(Done.) wrt wln