SYSTEM sieve;
CONFIGURATION list [2..200];
CONNECTION  (* none *);

SCALAR  prime  : INTEGER;
VECTOR  removed: BOOLEAN;

BEGIN
  PARALLEL
    REPEAT
      prime:= REDUCE.FIRST(DIM1);
      WriteInt(prime,10); WriteLn;
      removed := DIM1 MOD prime = 0  (* remove multiples *)
    UNTIL removed
  ENDPARALLEL
END sieve.

