+
+
+-- | Convenience function for creating 4d vectors.
+--
+-- Examples:
+--
+-- >>> let v1 = make4d (1,2,3,4)
+-- >>> v1
+-- (1,2,3,4)
+-- >>> let Vn (Vec4D w x y z) = v1
+-- >>> (w,x,y,z)
+-- (1,2,3,4)
+--
+make4d :: forall a. (a,a,a,a) -> Vn Vec4D a
+make4d (w,x,y,z) = Vn (Vec4D w x y z)