diff --git a/Changelog.md b/Changelog.md
new file mode 100644
--- /dev/null
+++ b/Changelog.md
@@ -0,0 +1,5 @@
+# Changelog
+
+## Version 0.1
+
+Initial Version.
diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,21 @@
+The MIT License (MIT)
+
+Copyright (c) 2014 Tobias Florek (me@ibotty.net)
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
diff --git a/Setup.hs b/Setup.hs
new file mode 100644
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain
diff --git a/animalcase.cabal b/animalcase.cabal
new file mode 100644
--- /dev/null
+++ b/animalcase.cabal
@@ -0,0 +1,31 @@
+-- Initial animalcase.cabal generated by cabal init.  For further 
+-- documentation, see http://haskell.org/cabal/users-guide/
+
+name:                animalcase
+version:             0.1.0.0
+synopsis:            Convert camelCase to snake_case and vice versa
+description:         Feedback very welcome.
+homepage:            https://github.com/ibotty/animalcase
+license:             MIT
+license-file:        LICENSE
+author:              Tobias Florek
+maintainer:          tob@butter.sh
+copyright:           2014           
+category:            Text
+build-type:          Simple
+extra-source-files:  Changelog.md
+cabal-version:       >=1.10
+
+library
+  exposed-modules:     Text.AnimalCase
+  -- other-modules:       
+  -- other-extensions:    
+  build-depends:       base ==4.*
+                     , bytestring >=0.9 && <0.11
+                     , text >= 1.0 && <1.2
+  hs-source-dirs:      src
+  default-language:    Haskell2010
+
+source-repository head
+  type:     darcs
+  location: git@github.com:ibotty/animalcase.git
diff --git a/src/Text/AnimalCase.hs b/src/Text/AnimalCase.hs
new file mode 100644
--- /dev/null
+++ b/src/Text/AnimalCase.hs
@@ -0,0 +1,68 @@
+-- This Module converts between camelCase and snake_case.
+--
+-- The suffixes specify the base type the functions are working on.
+-- L uses lazy 'TL.Text', S uses 'String' and B8 uses 'B8.ByteString'.
+--
+-- Beware, that you should not use 'B8.ByteString's for serious work, as
+-- they only work with 8 bit characters. Do only use when you are
+-- absolutely sure, there is no wide character in the string!
+{-# LANGUAGE OverloadedStrings #-}
+module Text.AnimalCase
+  ( toCamelCase
+  , toSnakeCase
+  , toCamelCaseS
+  , toSnakeCaseS
+  , toCamelCaseL
+  , toSnakeCaseL
+  , toCamelCaseB8
+  , toSnakeCaseB8
+  ) where
+
+import Control.Arrow (first)
+import Data.Char (isUpper)
+import Data.Monoid ((<>))
+import Data.Text.Lazy.Encoding (decodeLatin1, encodeUtf8)
+import qualified Data.ByteString.Char8 as B8
+import qualified Data.ByteString.Lazy as BL
+import qualified Data.Text as T
+import qualified Data.Text.Lazy as TL
+
+useLazy :: (TL.Text -> TL.Text) -> T.Text -> T.Text
+useLazy f = TL.toStrict .  f . TL.fromStrict
+
+useLazyS :: (TL.Text -> TL.Text) -> String -> String
+useLazyS f = TL.unpack . f . TL.pack
+
+useLazyB8 :: (TL.Text -> TL.Text) -> B8.ByteString -> B8.ByteString
+useLazyB8 f = BL.toStrict . encodeUtf8 . f . decodeLatin1 . BL.fromStrict
+
+onFirstLetter :: (Char -> TL.Text) -> TL.Text -> TL.Text
+onFirstLetter f = maybe "" (uncurry (<>) . first f) . TL.uncons
+
+toCamelCase :: T.Text -> T.Text
+toCamelCase = useLazy toCamelCaseL
+
+toCamelCaseL :: TL.Text -> TL.Text
+toCamelCaseL = TL.concat . map capitalizeWord . TL.splitOn "_"
+  where capitalizeWord = onFirstLetter (TL.toUpper . TL.singleton)
+
+toCamelCaseS :: String -> String
+toCamelCaseS = useLazyS toCamelCaseL
+
+toCamelCaseB8 :: B8.ByteString -> B8.ByteString
+toCamelCaseB8 = useLazyB8 toCamelCaseL
+
+toSnakeCase :: T.Text -> T.Text
+toSnakeCase = useLazy toSnakeCaseL
+
+toSnakeCaseL :: TL.Text -> TL.Text
+toSnakeCaseL = TL.concatMap f
+  where f c
+          | isUpper c = "_" <> TL.toLower (TL.singleton c)
+          | otherwise = TL.singleton c
+
+toSnakeCaseS :: String -> String
+toSnakeCaseS = useLazyS toSnakeCaseL
+
+toSnakeCaseB8 :: B8.ByteString -> B8.ByteString
+toSnakeCaseB8 = useLazyB8 toSnakeCaseL