`prime', `lprime'
-----------------

prime(INDEX)
lprime(INDEX)
     :: $@AG?t$rJV$9(J

RETURN
     $@@0?t(J
INDEX
     $@@0?t(J

   * `prime()', `lprime()' $@$$$:$l$b%7%9%F%`$,FbIt$K;}$DAG?tI=$NMWAG$r(J
     $@JV$9(J. `index' $@$O(J 0 $@0J>e$N@0?t$G(J, $@AG?tI=$N%$%s%G%C%/%9$KMQ$$$i$l$k(J. 
     `prime()' $@$O9b!9(J 10 $@?J(J 4$@7e$NAG?t$r>.$5$$=g$K(J 1229 $@8D(J, `lprime()' 
     $@$O(J, 10 $@?J(J 8 $@7e$G:GBg$NAG?t$+$iBg$-$$=g$K(J 999 $@8DJV$9(J. $@$=$l0J30$N%$(J
     $@%s%G%C%/%9$KBP$7$F$O(J0 $@$rJV$9(J.
   * $@$h$j0lHLE*$JAG?t@8@.H!?t$H$7$F$O(J, `pari(nextprime,NUMBER)'$@$,$"$k(J.

     [95] prime(0);
     2
     [96] prime(1228);
     9973
     [97] lprime(0);
     99999989
     [98] lprime(999);
     0

$@;2>H(J
     `pari'

