diff --git a/chorale.cabal b/chorale.cabal
--- a/chorale.cabal
+++ b/chorale.cabal
@@ -1,5 +1,5 @@
 name:           chorale
-version:        0.1.5
+version:        0.1.6
 homepage:       https://github.com/mocnik-science/chorale
 bug-reports:    https://github.com/mocnik-science/chorale/issues
 synopsis:       A module containing basic functions that the prelude does not offer
diff --git a/src/Chorale/Common.hs b/src/Chorale/Common.hs
--- a/src/Chorale/Common.hs
+++ b/src/Chorale/Common.hs
@@ -106,6 +106,12 @@
     sequence4,
     sequence5,
     (<<),
+    -- * Functions
+    const2,
+    const3,
+    const4,
+    const5,
+    applyIf,
     -- * Ordering
     compareUsing,
     -- * Comparing and Sorting
@@ -556,6 +562,29 @@
 -- | like '>>' but with reversed argument
 (<<) :: (Monad m) => m b -> m a -> m b
 m1 << m2 = m2 >> m1
+
+-- --== FUNCTINOS
+
+-- | like 'const' but with 2 arguments
+const2 :: a -> b -> c -> a
+const2 a _ _ = a
+
+-- | like 'const' but with 3 arguments
+const3 :: a -> b -> c -> d -> a
+const3 a _ _ _ = a
+
+-- | like 'const' but with 4 arguments
+const4 :: a -> b -> c -> d -> e -> a
+const4 a _ _ _ _ = a
+
+-- | like 'const' but with 5 arguments
+const5 :: a -> b -> c -> d -> e -> f -> a
+const5 a _ _ _ _ _ = a
+
+-- | apply an endomorphism only if the given boolean value is true
+applyIf :: Bool -> (a -> a) -> a -> a
+applyIf False _ = id
+applyIf True f = f
 
 -- --== ORDERING