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