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