Acse/tests/map-reduce/reduce.src

int vett[3];
int elem, sum = 0, i = 0;

while (i < 3) {
    read(elem);
    vett[i] = elem;
    i = i + 1;

reduce elem into sum as [[ sum + 2 * elem ]] on vett;
write(sum);