Logo - Je li broj prost?

to jeliprost :n
if :n = 1 [op "false]
make "p int :n/2
for [k 2 :p 1] [
	if (remainder :n :k) = 0 [op "false]
]
op "true
end

to testiraj :max
for [i 1 :max 1] [if jeliprost :i [pr :i] ]
end


; pozvati primjer:
; testiraj 50