-- >>> let expected_vals = fromList [[8],[-1],[-1]] :: Col3 Double
-- >>> let v0' = vec3d (2, 1, 2) :: Col3 Double
-- >>> let v0 = (1 / (norm v0') :: Double) *> v0'
-- >>> let expected_vals = fromList [[8],[-1],[-1]] :: Col3 Double
-- >>> let v0' = vec3d (2, 1, 2) :: Col3 Double
-- >>> let v0 = (1 / (norm v0') :: Double) *> v0'