let f = function
| Scal v -> v
| Vect (v1, v2) -> v1 +. v2
| _ -> 0.;;