diff --git a/CHANGELOG b/CHANGELOG
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,3 +1,7 @@
+2016-05-23 Ivan Perez <ivan.perez@keera.co.uk>
+        * src/: Adds new -:> combinator.
+        * Yampa.cabal: Version bump (0.10.5).
+
 2015-11-14 Ivan Perez <ivan.perez@keera.co.uk>
         * tests/: Include haddock. Regression tests now exit with proper exit
           code.
diff --git a/Yampa.cabal b/Yampa.cabal
--- a/Yampa.cabal
+++ b/Yampa.cabal
@@ -1,5 +1,5 @@
 name: Yampa
-version: 0.10.4
+version: 0.10.5
 cabal-version: >= 1.8
 license: BSD3
 license-file: LICENSE
diff --git a/src/FRP/Yampa.hs b/src/FRP/Yampa.hs
--- a/src/FRP/Yampa.hs
+++ b/src/FRP/Yampa.hs
@@ -253,6 +253,7 @@
 
     -- ** Initialization
     (-->),                -- :: b -> SF a b -> SF a b,        infixr 0
+    (-:>),                -- :: b -> SF a b -> SF a b,        infixr 0
     (>--),                -- :: a -> SF a b -> SF a b,        infixr 0
     (-=>),                -- :: (b -> b) -> SF a b -> SF a b      infixr 0
     (>=-),                -- :: (a -> a) -> SF a b -> SF a b      infixr 0
diff --git a/src/FRP/Yampa/Basic.hs b/src/FRP/Yampa/Basic.hs
--- a/src/FRP/Yampa/Basic.hs
+++ b/src/FRP/Yampa/Basic.hs
@@ -24,6 +24,7 @@
 
     -- ** Initialization
     (-->),              -- :: b -> SF a b -> SF a b,            infixr 0
+    (-:>),              -- :: b -> SF a b -> SF a b,            infixr 0
     (>--),              -- :: a -> SF a b -> SF a b,            infixr 0
     (-=>),              -- :: (b -> b) -> SF a b -> SF a b      infixr 0
     (>=-),              -- :: (a -> a) -> SF a b -> SF a b      infixr 0
@@ -32,9 +33,9 @@
   ) where
 
 
-import FRP.Yampa.InternalCore (SF(..), sfConst, sfId)
+import FRP.Yampa.InternalCore (SF(..), SF'(..), sfConst, sfId)
 
-infixr 0 -->, >--, -=>, >=-
+infixr 0 -->, -:>, >--, -=>, >=-
 
 ------------------------------------------------------------------------------
 -- Basic signal functions
@@ -68,6 +69,14 @@
 -- second argument.
 (-->) :: b -> SF a b -> SF a b
 b0 --> (SF {sfTF = tf10}) = SF {sfTF = \a0 -> (fst (tf10 a0), b0)}
+
+-- | Output pre-insert operator.
+--
+-- Insert a sample in the output, and from that point on, behave
+-- like the given sf.
+(-:>) :: b -> SF a b -> SF a b
+b0 -:> (SF {sfTF = tf10}) = SF {sfTF = \a0 -> (ct, b0)}
+ where ct = SF' $ \_dt a0 -> tf10 a0
 
 -- | Input initialization operator.
 --