Eratosthenes Sieve & Swan
module primes fun int n | Eratosthenes // subroutine declaration int primes [ n ], 1 | l int // assignment operator 0 | i int, 3 | index_square int // proc sift int first, last, factor // proc mark sieve for 0 | k int, k < n, k++ // fill with true true | primes[k] whil...