/* Calculate the dot product of two vectors a and b (represented as
 * arrays) of size n.
 */
define d(a[], b[], n) {
    auto d, i

    for (i = 0; i < n; i++) {
        d += a[i] * b[i]
    }
    return(d)
}

a[0] = 1
a[1] = 3
a[2] = -5
b[0] = 4
b[1] = -2
b[2] = -1
d(a[], b[], 3)