1define p ( x[] ) {
2  auto i;
3  for (i=0; i<10; i++) x[i];
4}
5
6define m ( x[] ) {
7  auto i;
8  for (i=0; i<10; i++) x[i] *= 2;
9}
10    
11scale = 20;
12for (i=0; i<10; i++) a[i] = sqrt(i);
13
14p(a[]);
15m(a[]);
16p(a[]);
17