6 lines
125 B
Text
6 lines
125 B
Text
DEFINE prime ==
|
|
2
|
|
[ [dup * >] nullary [rem 0 >] dip and ]
|
|
[ succ ]
|
|
while
|
|
dup * < .
|