let length c = let l = ref 0. in let norm (x,y,z) = sqrt (x*.x +. y*.y +. z*.z) in iter (fun x -> l := !l +. (norm x)) c ; sqrt !l