#module "prime"
#deffunc is_prime int
mref p1,0 : mref result,64
if (p1<=1) : result=0 : return

r=1
repeat p1-2,2
if (p1\cnt)=0 : r=0 : break
loop

result=r
return
#global

is_prime 10
if stat : mes "true" : else : mes "false"
is_prime 13
if stat : mes "true" : else : mes "false"

stop