diff --git a/Util.hs b/Util.hs
--- a/Util.hs
+++ b/Util.hs
@@ -98,6 +98,14 @@
 þrd3 :: (a, b, c) -> c
 þrd3 (_,_,z) = z
 
+infixr 0 ₪
+(₪) :: a -> (a -> b) -> b
+(₪) = flip id
+
+infixl 4 <₪>
+(<₪>) :: Functor f => f a -> (a -> b) -> f b
+(<₪>) = flip fmap
+
 replicate :: Alternative f => Natural -> a -> f a
 replicate 0 _ = empty
 replicate n a = a <| replicate (pred n) a
diff --git a/util.cabal b/util.cabal
--- a/util.cabal
+++ b/util.cabal
@@ -1,5 +1,5 @@
 name:                util
-version:             0.1.16.0
+version:             0.1.17.0
 synopsis:            Utilities
 -- description:         
 license:             BSD3