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)...)