1#! /usr/bin/bc -q 2 3define z(a[]) { 4 for (i = 0; i < l; ++i) { 5 a[i] 6 } 7} 8 9define x(a[]) { 10 11 for (i = 0; i < l; ++i) { 12 a[i] = -i 13 } 14 15 z(a[]) 16} 17 18for (i = 0; i < 101; ++i) { 19 a[i] = i 20} 21 22a[104] = 204 23 24l = length(a[]) 25 26for (i = 0; i <= l; ++i) { 27 a[i] 28} 29 30z(a[]) 31x(a[]) 32z(a[]) 33l 34 35halt 36