äquivalent zu textueller Ersetzung
Algol(68): Jensen's device
sum (int i, int n; int f) { int s = 0; for (i=0; i<n; i++) { s += f; } return s; } int [10] a; int i; sum (i, 10, a[i]);