func Semiprime(N);      \Return 'true' if N is semiprime
int  N, F, C;
[C:= 0;  F:= 2;
repeat  if rem(N/F) = 0 then
                [C:= C+1;
                N:= N/F;
                ]
        else    F:= F+1;
until   F > N;
return C = 2;
];

int N;
[for N:= 1 to 100 do
    if Semiprime(N) then
        [IntOut(0, N);  ChOut(0, ^ )];
]