define p ( x[] ) {

  auto i;

  for (i=0; i<10; i++) x[i];

}

define m ( x[] ) {

  auto i;

  for (i=0; i<10; i++) x[i] *= 2;

}

scale = 20;

for (i=0; i<10; i++) a[i] = sqrt(i);

p(a[]);

m(a[]);

p(a[]);