let
mult (x, y, z) a =
(x *. a, y *. a, z *. a)