A second sieve program that uses some more interesting Modula-3 features, like ranges, sets, and more for loop features. It should have identical output to the previous example.
$ sieve
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 ...
$
You can review the main module to see some
Modula-3 features for scalar types.