diff --git a/deferred-folds.cabal b/deferred-folds.cabal
--- a/deferred-folds.cabal
+++ b/deferred-folds.cabal
@@ -1,5 +1,5 @@
 name: deferred-folds
-version: 0.9.9.1
+version: 0.9.10
 category: Folding
 synopsis: Abstractions over deferred folds
 description:
diff --git a/library/DeferredFolds/Defs/Unfoldr.hs b/library/DeferredFolds/Defs/Unfoldr.hs
--- a/library/DeferredFolds/Defs/Unfoldr.hs
+++ b/library/DeferredFolds/Defs/Unfoldr.hs
@@ -313,3 +313,9 @@
     then step a nextState
     else init)
   init
+
+cons :: a -> Unfoldr a -> Unfoldr a
+cons a (Unfoldr unfoldr) = Unfoldr $ \ step init -> step a (unfoldr step init)
+
+snoc :: a -> Unfoldr a -> Unfoldr a
+snoc a (Unfoldr unfoldr) = Unfoldr $ \ step init -> unfoldr step (step a init)