Programy jako generátory

begin
    n := 1;
    while true do begin
                    n := 2 * n;
                    output(n);
                  end
end
begin
end
begin
    n := 0
    while true do begin
                output(f(n));
                n := n + 1
    end
end

Alternativní charakterizace r.e. množin

begin
    x := pi1(x1);
    y := pi2(x2);
    if SC (e,x,y) = 1 then x1 := x
                      else x1 := a_0
end