let mult v1 v2 = create (x v1 *. x v2) (y v1 *. y v2) (z v1 *. z v2) (w v1 *. w v2)