Midpoint

Write `midpoint(x1, y1, x2, y2)` returning `[mx, my]`.