fromVector ::
     DecidableUnit a
  => Vector a -> LeftTransformation a
fromVector v = singleton (toUnit $ V.head v) (V.tail v)
fromVector ::
     DecidableUnit a
  => Vector a -> LeftTransformation a
fromVector v = singleton (toUnit $ V.head v) (V.tail v)
fromVector v = singleton (toUnit $ V.head v) (V.tail v)