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