@verb #9682:"isprime" any none none rdo #9682
@program #9682:"isprime" any none none
ft = ftime()
what = toint(dobjstr)
test = toint(sqrt(tofloat(dobjstr)))
for a in [2..test]
  b = what / a
  if (a * b == what)
    return player:tell("You lose: ", a, " * ", b, " = ", what)
  endif
endfor
player:tell("It's prime.")
player:tell("[", ftime() - ft, " seconds.]")
"Last modified by Dax (#789) on Tue May  3 14:09:39 2005 MDT."
.