REBOL [ 
	Title:	"Rebol Prime Number Finder"
	Date:	02-Dec-2003
	Author:	haplo@mindstab.net
	Version:	1.0
	File:	%primes.r
	Home:	http://www.mindstab.net/primes
]

; Command line argument getting code borrowed from
; http://www.melbpc.org.au/pcupdate/2305/2305article6.htm
cl_args: make block! system/script/args
max: either none? cl_args/1 [""] [to-integer cl_args/1] 


for cnt 3 max +2 [
	sq: to-integer(square-root(cnt))
	isp: 1
	for i 3 sq +2 [
		isp: cnt // i
		if isp = 0 [
			break
		]
		
	]
	if isp <> 0 [ print cnt ]	

]