I find this implementation of a dot product in Oak so satisfyingly elegant: sum of elementwise products.

fn dot(xs, ys) sum(zip(xs, ys, fn(x, y) x * y)...)