diff --git a/hw-prelude.cabal b/hw-prelude.cabal
--- a/hw-prelude.cabal
+++ b/hw-prelude.cabal
@@ -1,6 +1,6 @@
 cabal-version:          3.4
 name:                   hw-prelude
-version:                0.0.3.0
+version:                0.0.4.0
 synopsis:               Opinionated prelude library
 description:            Opinionated prelude library.
 license:                Apache-2.0
@@ -92,6 +92,7 @@
 
   exposed-modules:      HaskellWorks.Control.Monad
                         HaskellWorks.Data.String
+                        HaskellWorks.Either
                         HaskellWorks.Error
                         HaskellWorks.Error.Types
                         HaskellWorks.Error.Types.GenericError
diff --git a/src/HaskellWorks/Either.hs b/src/HaskellWorks/Either.hs
new file mode 100644
--- /dev/null
+++ b/src/HaskellWorks/Either.hs
@@ -0,0 +1,10 @@
+module HaskellWorks.Either
+  ( orElse
+  ) where
+
+import           Data.Either
+import           Data.Function
+
+orElse :: Either e a -> Either e a -> Either e a
+orElse a b =
+  either (const b) Right a
diff --git a/src/HaskellWorks/Prelude.hs b/src/HaskellWorks/Prelude.hs
--- a/src/HaskellWorks/Prelude.hs
+++ b/src/HaskellWorks/Prelude.hs
@@ -71,7 +71,6 @@
     (&&),
     (||),
     (.),
-    (</>),
 
     void,
     mapM_,
@@ -102,6 +101,7 @@
     (<$!>),
 
     (<$>),
+    (<&>),
 
     (<**>),
     liftA,
@@ -111,13 +111,6 @@
 
     for_,
 
-    zip,
-    zip3,
-    zipWith,
-    zipWith3,
-    unzip,
-    unzip3,
-
     Read(..),
     readEither,
 
@@ -148,6 +141,7 @@
 
     Monad(..),
     MonadFail(..),
+    MonadIO(..),
     MonadPlus(..),
     Applicative(..),
     Alternative(..),
@@ -194,6 +188,7 @@
 import           Control.Applicative
 import           Control.Exception
 import           Control.Monad
+import           Control.Monad.IO.Class
 import           Control.Monad.Trans.Except
 import           Data.Bifunctor
 import           Data.Bool
@@ -205,6 +200,7 @@
 import           Data.Eq
 import           Data.Foldable
 import           Data.Function
+import           Data.Functor
 import           Data.Functor.Contravariant
 import           Data.Functor.Contravariant.Divisible
 import           Data.Functor.Identity
@@ -229,7 +225,6 @@
 import           GHC.Stack
 import           HaskellWorks.Error
 import           Prelude
-import           System.FilePath
 import           System.IO                            (Handle)
 import           Text.Read