! A Triangle program that prints the prime numbers up to a 
! given value. Use a procedure.
let
    proc checkPrime(x : Integer, var prime : Boolean) ~
        let
	    var i : Integer
	in
	    begin
	    prime := true;
	    i := 2;
	    while i*i <= x /\ prime do
	        begin
		if x//i = 0 then
		    prime := false
		else;
		i := i + 1
		end
            end;

    var i : Integer;
    var n : Integer;
    var prime : Boolean

in
    begin
    getint(var n);
    i := 2;
    while i <= n do
        begin
	checkPrime(i, var prime);
        if prime then
            begin
            putint(i);
            put(' ')
            end
        else;
        i := i + 1
        end
    end