Primes, Sieve of Eratosthenes pass also see Lambda primes Please turn javascript on. Yet another Sieve, this one in parallel. let rec from = lambda n. lambda upb. if n > upb then stop else fromchan!n -> from (n+1) upb, fromchan = chan, sieve = lambda inch. ?inch -> lambda p. stdOp!p {p must be prime} -> let rec connect = chan, filter = ?inch -> lambda x. if (x/p)*p<>x then {not p|x} connect!x -> filter else filter in (filter || sieve connect) in from 2 100 || sieve fromchan {\fB Parallel Sieve of Eratosthenese. \fP} input area above this is the output area