diff --git a/Text/Inflections.hs b/Text/Inflections.hs
--- a/Text/Inflections.hs
+++ b/Text/Inflections.hs
@@ -96,6 +96,10 @@
     , parseSnakeCase
     , parseCamelCase
     , Transliterations
+    -- * Often used combinators
+    , toUnderscore
+    , toDashed
+    , toCamelCased
     )
 where
 
@@ -122,4 +126,35 @@
 
 import Text.Inflections.Parse.SnakeCase ( parseSnakeCase )
 
+import Text.Inflections.Parse.Types ( mapWord )
+
 import Text.Inflections.Parse.CamelCase ( parseCamelCase )
+
+import Data.Char ( toLower )
+
+-- | Transforms CamelCasedString to
+-- snake_cased_string_with_underscores. Throws exception if parsing failed
+toUnderscore :: String -> String
+toUnderscore =
+    underscore
+    . either (error .  ("toUnderscore: " ++) . show) id
+    . parseCamelCase []
+
+-- | Transforms CamelCasedString to snake-cased-string-with-dashes. Throws
+-- exception if parsing failed.
+toDashed :: String -> String
+toDashed =
+    dasherize
+    . map (mapWord (map toLower))
+    . either (error . ("toDashed: " ++) . show) id
+    . parseCamelCase []
+
+-- | Transforms underscored_text to CamelCasedText. If first argument is
+-- 'True' then FirstCharacter in result string will be in upper case. If
+-- 'False' then firstCharacter will be in lower case. Throws exception if
+-- parsing failed
+toCamelCased :: Bool -> String -> String
+toCamelCased t =
+    camelizeCustom t
+    . either (error . ("toCamelCased: " ++) . show) id
+    . parseSnakeCase []
diff --git a/Text/Inflections/Parse/Types.hs b/Text/Inflections/Parse/Types.hs
--- a/Text/Inflections/Parse/Types.hs
+++ b/Text/Inflections/Parse/Types.hs
@@ -1,4 +1,4 @@
-module Text.Inflections.Parse.Types ( Word(..) ) where
+module Text.Inflections.Parse.Types ( Word(..), mapWord ) where
 
 -- | A 'String' that should be kept whole through applied inflections
 data Word
@@ -10,3 +10,7 @@
     | Acronym String
 
     deriving (Show, Eq)
+
+mapWord :: (String -> String) -> Word -> Word
+mapWord f (Word s) = Word $ f s
+mapWord f (Acronym s) = Acronym $ f s
diff --git a/inflections.cabal b/inflections.cabal
--- a/inflections.cabal
+++ b/inflections.cabal
@@ -1,5 +1,5 @@
 name:                inflections
-version:             0.1.0.8
+version:             0.1.0.9
 synopsis:            Inflections library for Haskell
 description:
   Inflections provides methods for singularization, pluralization,
diff --git a/test/Suite.hs b/test/Suite.hs
--- a/test/Suite.hs
+++ b/test/Suite.hs
@@ -2,6 +2,7 @@
 
 import  Test.Framework (defaultMain)
 
+import qualified Text.InflectionsTest
 import qualified Text.Inflections.Tests
 import qualified Text.Inflections.UnderscoreTest
 import qualified Text.Inflections.OrdinalTest
@@ -9,8 +10,9 @@
 import qualified Text.Inflections.TitleizeTest
 
 main :: IO ()
-main = defaultMain $ Text.Inflections.Tests.tests ++
-                     Text.Inflections.UnderscoreTest.tests ++
-                     Text.Inflections.OrdinalTest.tests ++
-                     Text.Inflections.HumanizeTest.tests ++
-                     Text.Inflections.TitleizeTest.tests
+main = defaultMain $ Text.InflectionsTest.tests ++
+       Text.Inflections.Tests.tests ++
+       Text.Inflections.UnderscoreTest.tests ++
+       Text.Inflections.OrdinalTest.tests ++
+       Text.Inflections.HumanizeTest.tests ++
+       Text.Inflections.TitleizeTest.tests