diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,26 @@
+Copyright (c) 2015, Steven Shaw
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are
+met:
+
+1. Redistributions of source code must retain the above copyright
+   notice, this list of conditions and the following disclaimer.
+
+2. Redistributions in binary form must reproduce the above copyright
+   notice, this list of conditions and the following disclaimer in the
+   documentation and/or other materials provided with the
+   distribution.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
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/huttons-razor.cabal b/huttons-razor.cabal
new file mode 100644
--- /dev/null
+++ b/huttons-razor.cabal
@@ -0,0 +1,23 @@
+name:                huttons-razor
+version:             0.1.0.0
+synopsis:            Quick implemention of Hutton's Razor
+-- description:         
+license:             BSD2
+license-file:        LICENSE
+author:              Steven Shaw
+maintainer:          steven@steshaw.org
+-- copyright:           
+-- category:            
+build-type:          Simple
+-- extra-source-files:  
+cabal-version:       >=1.10
+
+executable huttons-razor
+  main-is:             Main.hs
+  -- other-modules:       
+  -- other-extensions:    
+  build-depends:       base >=4.8 && <4.9
+                     , parsec
+                     , parsec-numbers
+  hs-source-dirs:      src
+  default-language:    Haskell2010
diff --git a/src/Main.hs b/src/Main.hs
new file mode 100644
--- /dev/null
+++ b/src/Main.hs
@@ -0,0 +1,25 @@
+import System.Environment
+import Control.Monad (forM_)
+import Text.ParserCombinators.Parsec
+import qualified Text.ParserCombinators.Parsec.Number as Numbers
+
+expr = chainl1 int infixOp
+
+int = Numbers.int
+
+infixOp = do
+  spaces
+  char '+'
+  spaces
+  return (+)
+
+runExpr = runParser expr 0 "<input>"
+
+showResult (Left a)  = "Error: " ++ show a
+showResult (Right a) = show a
+  
+main = do
+  putStrLn "args:"
+  args <- System.Environment.getArgs
+  args `forM_` ((\s -> putStr " - " >> putStrLn s) . showResult . runExpr)
+  putStrLn ""