export uniform int width() { return programCount; }



export void f_du(uniform float RET[], uniform double aFOO[], uniform double b) {
    double a = aFOO[programIndex];
    RET[programIndex] = min(-10 * (a-3), (double).1f);
    RET[width() - 1] = min(-10 * b, (double)2);
}

export void result(uniform float RET[]) {
    RET[programIndex] = -10 * (programIndex - 2);
    RET[0] = .1;
    RET[1] = .1;
    RET[programCount - 1] = -50;
}