aUCBLogo Demos and Tests / primes_std

to primes_std [:size 8192] [:flags array :size]
   make "imax int sqrt :size
   for [i 2 imax 1] ~
   [   if equalp item :i :flags [] ~
      [   for [k i+i size i] ~
         [   setitem :k :flags "false
         ]
      ]
   ]
   repeat :size [if empty? item repcount :flags [(type repcount " )]]
   (pr)
end