1export void f_f(uniform float RET[], uniform float aFOO[]) {
2    float a = aFOO[programIndex];
3    float b = 0.; b = a;
4    RET[programIndex] = 0;
5 encore:
6    ++RET[programIndex];
7    if (any(a != 0)) {
8        a = max(a-1, 0.f);
9        goto encore;
10    }
11}
12
13export void result(uniform float RET[]) {
14    RET[programIndex] = programCount+1;
15}
16