diff --git a/CHANGELOG.md b/CHANGELOG.md
new file mode 100644
--- /dev/null
+++ b/CHANGELOG.md
@@ -0,0 +1,5 @@
+# Revision history for calenderweek
+
+## 0.1.0.0 -- YYYY-mm-dd
+
+* First version. Released on an unsuspecting world.
diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,29 @@
+BSD 3-Clause License
+
+Copyright (c) 2019, Rolf Meissner
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+* Redistributions of source code must retain the above copyright notice, this
+  list of conditions and the following disclaimer.
+
+* 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.
+
+* Neither the name of the copyright holder nor the names of its
+  contributors may be used to endorse or promote products derived from
+  this software without specific prior written permission.
+
+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 HOLDER 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/Main.hs b/Main.hs
new file mode 100644
--- /dev/null
+++ b/Main.hs
@@ -0,0 +1,54 @@
+{-# LANGUAGE DeriveGeneric     #-}
+{-# LANGUAGE OverloadedStrings #-}
+
+module Main where
+
+import Options.Generic
+import Data.Maybe
+import Data.Time.Calendar
+import Data.Time.Calendar.WeekDate (toWeekDate)
+import Data.Time.Clock (getCurrentTime, utctDay)
+import Text.Megaparsec
+import qualified Text.Megaparsec.Char.Lexer as L 
+import Data.Text
+import Data.Void
+import Text.Megaparsec.Char
+import Control.Monad (void)
+
+
+type Parser = Parsec Void Text
+
+data Input = Input (Maybe Text)
+    deriving (Generic, Show)
+
+instance ParseRecord Input
+
+weekOfYear :: Day -> Int
+weekOfYear = (\(_,b,_) -> b ) . toWeekDate 
+
+parseDay :: Parser Day
+parseDay = do
+    year <- L.decimal 
+    void (char '-')
+    month <- L.decimal 
+    void (char '-')
+    day <- L.decimal 
+    return $ fromGregorian year month day
+
+printCurrentWeekofYear :: IO () 
+printCurrentWeekofYear = do 
+      current <- fmap utctDay getCurrentTime
+      putStrLn $ show $ weekOfYear current
+      
+printWeekofYear datestring = do 
+      let d = parseMaybe parseDay datestring
+      case d of
+          Nothing -> putStrLn "Error, unable to parse date YYYY-MM-DD"
+          Just da -> putStrLn $ show $ weekOfYear da
+
+main = do
+    date <- getRecord "kw [YYYY-MM-DD] \n Returns week of year of today or of given date" 
+    case date of
+        Nothing -> printCurrentWeekofYear
+        Just datestring -> printWeekofYear datestring
+             
diff --git a/README.md b/README.md
new file mode 100644
--- /dev/null
+++ b/README.md
@@ -0,0 +1,28 @@
+# calenderweek
+
+Simple commandline tool to print week of year.
+If nothing is provided, the current week is printed.
+To query the week of year for a specific date, provide the date in ISO 8601 (YYYY-MM-DD).
+
+## Why
+
+Week of year is often used for communicating a time span. "We are planning to finish the feature in week 50" is a short and precise way to say that we finish between the 9th and the 15th december of 2019. Many Calender programs, like Outlook, are not providing this number. 
+
+## Example 
+
+
+    kw 2019-11-25
+    >48
+
+    kw                           #week of today
+    >48
+
+    kw -h
+
+    >kw [YYYY-MM-DD] Returns week of year of today or of given date
+    
+    >Usage: kw [TEXT]
+    
+    >Available options:
+    -h,--help                Show this help text
+ 
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/calenderweek.cabal b/calenderweek.cabal
new file mode 100644
--- /dev/null
+++ b/calenderweek.cabal
@@ -0,0 +1,29 @@
+cabal-version:       >=1.10
+name:                calenderweek
+version:             1.0.0
+synopsis:            Commandline tool to get week of the year
+description:         Prints week of year for given date. Installs 'kw' binary that returns week of today or of provided date (YYYY-MM-DD)
+bug-reports:         https://gitlab.com/rmeis/calenderweek/issues
+license:             BSD3
+license-file:        LICENSE
+author:              Rolf Meissner
+maintainer:          rolf@msnr.com
+copyright:           2019 Rolf Meissner
+category:            Commandline
+build-type:          Simple
+extra-source-files:  CHANGELOG.md, README.md
+
+executable kw
+  main-is:             Main.hs
+  build-depends:       base                 >= 4.12  && < 5.0,
+                       megaparsec           >= 8.0.0 && < 8.1,
+                       text                 >= 1.2.3 && < 1.3,
+                       optparse-generic     >= 1.3.0 && < 1.4,
+                       time                 >= 1.8.0 && < 1.9.4
+  default-language:    Haskell2010
+
+
+source-repository this
+   type:   git
+   location: https://gitlab.com/rmeis/calenderweek
+   tag: 1.0.0