diff --git a/Util.hs b/Util.hs
--- a/Util.hs
+++ b/Util.hs
@@ -7,6 +7,8 @@
 import Data.Foldable
 import Data.Function (flip)
 import Data.Functor.Classes
+import Data.List.NonEmpty (NonEmpty (..))
+import qualified Data.List.NonEmpty as NE
 import Data.Maybe
 import Data.Semigroup
 import Data.Monoid (Monoid (..))
@@ -16,7 +18,7 @@
 
 infixr 3 &=&
 (&=&) :: Applicative p => (a -> p b) -> (a -> p c) -> a -> p (b, c)
-f &=& g = (liftA2 ∘ liftA2) (,) f g
+(&=&) = (liftA2 ∘ liftA2) (,)
 
 infixr 3 *=*
 (*=*) :: Applicative p => (a1 -> p b1) -> (a2 -> p b2) -> (a1, a2) -> p (b1, b2)
@@ -96,3 +98,6 @@
 (!!?) = go . toList where go [] _ = Nothing
                           go (x:_) 0 = Just x
                           go (_:xs) n = go xs (pred n)
+
+intercalate :: Semigroup a => a -> NonEmpty a -> a
+intercalate a = sconcat . NE.intersperse a
diff --git a/util.cabal b/util.cabal
--- a/util.cabal
+++ b/util.cabal
@@ -1,5 +1,5 @@
 name:                util
-version:             0.1.2.1
+version:             0.1.3.0
 synopsis:            Utilities
 -- description:         
 license:             BSD3