Acse/tests/map-reduce/map.src

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

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

map elem on vett as {
    elem = elem * 2;
}

i = 0;
while (i < 3) {
    write(vett[i]);
    i = i + 1;
}