diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2017 Kadzuya OKAMOTO, http://www.arow.info
+
+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/README.md b/README.md
new file mode 100644
--- /dev/null
+++ b/README.md
@@ -0,0 +1,6 @@
+[![Build Status](https://travis-ci.org/arowM/haskell-bookkeeping-jp.svg?branch=master)](https://travis-ci.org/arowM/haskell-bookkeeping-jp)
+
+# Haskell-bookkeeping-jp
+
+日本での複式簿記記帳業務向けに、
+[`bookkeeping`モジュール](https://github.com/arowM/haskell-bookkeeping#readme)のヘルパ関数群を提供します。
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/bookkeeping-jp.cabal b/bookkeeping-jp.cabal
new file mode 100644
--- /dev/null
+++ b/bookkeeping-jp.cabal
@@ -0,0 +1,47 @@
+name:                bookkeeping-jp
+version:             0.1.0.0
+synopsis:            Helper functions for Japanese bookkeeping.
+description:
+    Helper functions of [bookkeeping module](https://github.com/arowM/haskell-bookkeeping#readme) for Japanese bookkeeping.
+homepage:            https://github.com/arowM/haskell-bookkeeping-jp#readme
+license:             MIT
+license-file:        LICENSE
+author:              Kadzuya Okamoto
+maintainer:          arow.okamoto+github@gmail.com
+copyright:           2017 Kadzuya Okamoto
+category:            Business
+build-type:          Simple
+extra-source-files:  README.md
+cabal-version:       >=1.10
+
+library
+  hs-source-dirs:      src
+  exposed-modules:     Business.Bookkeeping.JP.SelfEmployed
+  build-depends:       base >= 4.9 && < 4.10
+                     , bookkeeping >= 0.2 && < 0.3
+  default-language:    Haskell2010
+  default-extensions:  OverloadedStrings
+
+test-suite bookkeeping-jp-test
+  type:                exitcode-stdio-1.0
+  hs-source-dirs:      test
+  main-is:             Spec.hs
+  build-depends:       base
+                     , bookkeeping-jp
+  ghc-options:         -threaded -rtsopts -with-rtsopts=-N
+  default-language:    Haskell2010
+
+test-suite doctest
+  type:                exitcode-stdio-1.0
+  hs-source-dirs:      test
+  main-is:             Doctest.hs
+  build-depends:       base
+                     , Glob
+                     , doctest >= 0.10
+                     , bookkeeping-jp
+  ghc-options:         -threaded -rtsopts -with-rtsopts=-N
+  default-language:    Haskell2010
+
+source-repository head
+  type:     git
+  location: https://github.com/arowM/haskell-bookkeeping-jp
diff --git a/src/Business/Bookkeeping/JP/SelfEmployed.hs b/src/Business/Bookkeeping/JP/SelfEmployed.hs
new file mode 100644
--- /dev/null
+++ b/src/Business/Bookkeeping/JP/SelfEmployed.hs
@@ -0,0 +1,245 @@
+{- |
+Module      :  Business.Bookkeeping.JP.SelfEmployed
+
+Copyright   :  Kadzuya Okamoto 2017
+License     :  MIT
+
+Stability   :  experimental
+Portability :  unknown
+
+This module exports l10n functions for self employed Japanese people.
+-}
+module Business.Bookkeeping.JP.SelfEmployed
+  (
+  -- * Helper functions for expenses
+  -- $expences
+    _旅費交通費
+  , _通信費
+  , _接待交際費
+  , _支払手数料
+  , _消耗品費
+  , _新聞図書費
+  , _会議費
+  , _外注工費
+  , _雑費
+  -- ** Lower level functions
+  , _経費
+
+  -- * Helper functions for sales
+  -- $sales
+  , _売上発生
+  , _売上入金
+  , _売上
+  , _即日売上
+  , _源泉所得税
+  ) where
+
+import Business.Bookkeeping
+
+{- $expences
+  経費の支払いに使うヘルパ関数群.
+>>> :{
+ppr $ year 2015 $ do
+  month 1 $ do
+    activity 2 "ジャパリパーク取材" $ do
+      _旅費交通費 340
+      _消耗品費 "入場料" 1000
+      _消耗品費 "ジャパリバス乗車料" 400
+      _消耗品費 "ジャパリまん" 200
+    activity 20 "ジャパリパーク商談" $
+      _旅費交通費 340
+:}
+tDay: 2015-01-02
+tDescription: ジャパリパーク取材
+tSubDescription: 
+tDebit: 旅費交通費 (Expenses)
+tCredit: 事業主借 (Liabilities)
+tAmount: 340
+<BLANKLINE>
+tDay: 2015-01-02
+tDescription: ジャパリパーク取材
+tSubDescription: 入場料
+tDebit: 消耗品費 (Expenses)
+tCredit: 事業主借 (Liabilities)
+tAmount: 1000
+<BLANKLINE>
+tDay: 2015-01-02
+tDescription: ジャパリパーク取材
+tSubDescription: ジャパリバス乗車料
+tDebit: 消耗品費 (Expenses)
+tCredit: 事業主借 (Liabilities)
+tAmount: 400
+<BLANKLINE>
+tDay: 2015-01-02
+tDescription: ジャパリパーク取材
+tSubDescription: ジャパリまん
+tDebit: 消耗品費 (Expenses)
+tCredit: 事業主借 (Liabilities)
+tAmount: 200
+<BLANKLINE>
+tDay: 2015-01-20
+tDescription: ジャパリパーク商談
+tSubDescription: 
+tDebit: 旅費交通費 (Expenses)
+tCredit: 事業主借 (Liabilities)
+tAmount: 340
+<BLANKLINE>
+-}
+_旅費交通費 :: Amount -> DateTransactions
+_旅費交通費 = _経費 "旅費交通費" ""
+_通信費 :: SubDescription -> Amount -> DateTransactions
+_通信費 = _経費 "通信費"
+_接待交際費 :: SubDescription -> Amount -> DateTransactions
+_接待交際費 = _経費 "接待交際費"
+_支払手数料 :: SubDescription -> Amount -> DateTransactions
+_支払手数料 = _経費 "支払手数料"
+_消耗品費 :: SubDescription -> Amount -> DateTransactions
+_消耗品費 = _経費 "消耗品費"
+_新聞図書費 :: SubDescription -> Amount -> DateTransactions
+_新聞図書費 = _経費 "新聞図書費"
+_会議費 :: SubDescription -> Amount -> DateTransactions
+_会議費 = _経費 "会議費"
+_外注工費 :: SubDescription -> Amount -> DateTransactions
+_外注工費 = _経費 "外注工賃"
+_雑費 :: SubDescription -> Amount -> DateTransactions
+_雑費 = _経費 "雑費"
+
+{-| 事業主が経費を支払った場合に使う関数.
+-}
+_経費 :: CategoryName -> SubDescription -> Amount -> DateTransactions
+_経費 name = dateTrans
+  (DebitCategory $ Category name Expenses)
+  (CreditCategory $ Category "事業主借" Liabilities)
+
+
+{- $sales
+  売上があった場合に使うヘルパ関数群.
+>>> :{
+let
+  _ジャパリパーク技術顧問料 :: Month -> Date -> YearTransactions
+  _ジャパリパーク技術顧問料 m d =
+    month m $ do
+      _即日売上 d "ジャパリパーク技術顧問料" 600000
+      _源泉所得税 d "ジャパリパーク技術顧問料" 50000
+in ppr $ year 2015 $ do
+  _売上 (2, 20) (2, 28) "ジャパリパーク ラッキービースト改修費" 200000
+  _ジャパリパーク技術顧問料 3 31
+  _ジャパリパーク技術顧問料 4 30
+  _ジャパリパーク技術顧問料 5 31
+:}
+tDay: 2015-02-20
+tDescription: ジャパリパーク ラッキービースト改修費
+tSubDescription: 売上発生
+tDebit: 売掛金 (Assets)
+tCredit: 売上高 (Revenue)
+tAmount: 200000
+<BLANKLINE>
+tDay: 2015-02-28
+tDescription: ジャパリパーク ラッキービースト改修費
+tSubDescription: 売上入金
+tDebit: 事業主貸 (Assets)
+tCredit: 売掛金 (Revenue)
+tAmount: 200000
+<BLANKLINE>
+tDay: 2015-03-31
+tDescription: ジャパリパーク技術顧問料
+tSubDescription: 売上/入金
+tDebit: 事業主貸 (Assets)
+tCredit: 売上高 (Revenue)
+tAmount: 600000
+<BLANKLINE>
+tDay: 2015-03-31
+tDescription: ジャパリパーク技術顧問料
+tSubDescription: 源泉所得税
+tDebit: 事業主貸 (Assets)
+tCredit: 売上高 (Revenue)
+tAmount: 50000
+<BLANKLINE>
+tDay: 2015-04-30
+tDescription: ジャパリパーク技術顧問料
+tSubDescription: 売上/入金
+tDebit: 事業主貸 (Assets)
+tCredit: 売上高 (Revenue)
+tAmount: 600000
+<BLANKLINE>
+tDay: 2015-04-30
+tDescription: ジャパリパーク技術顧問料
+tSubDescription: 源泉所得税
+tDebit: 事業主貸 (Assets)
+tCredit: 売上高 (Revenue)
+tAmount: 50000
+<BLANKLINE>
+tDay: 2015-05-31
+tDescription: ジャパリパーク技術顧問料
+tSubDescription: 売上/入金
+tDebit: 事業主貸 (Assets)
+tCredit: 売上高 (Revenue)
+tAmount: 600000
+<BLANKLINE>
+tDay: 2015-05-31
+tDescription: ジャパリパーク技術顧問料
+tSubDescription: 源泉所得税
+tDebit: 事業主貸 (Assets)
+tCredit: 売上高 (Revenue)
+tAmount: 50000
+<BLANKLINE>
+-}
+
+{-| 売上発生を記帳するためのヘルパ関数.
+-}
+_売上発生 :: Date -> Description -> Amount -> MonthTransactions
+_売上発生 d0 desc amount =
+  activity d0 desc $
+    dateTrans
+      (DebitCategory $ Category "売掛金" Assets)
+      (CreditCategory $ Category "売上高" Revenue)
+      "売上発生"
+      amount
+
+{-| 売上入金を記帳するためのヘルパ関数.
+-}
+_売上入金 :: Date -> Description -> Amount -> MonthTransactions
+_売上入金 d0 desc amount =
+  activity d0 desc $
+    dateTrans
+      (DebitCategory $ Category "事業主貸" Assets)
+      (CreditCategory $ Category "売掛金" Revenue)
+      "売上入金"
+      amount
+
+{-| 売上を記帳するためのヘルパ関数.
+  売上発生日と、実際の入金日が異なる場合に用いる.
+  最終的な入金先は、簡単のため事業主貸としてあつかう.
+-}
+_売上 :: (Month, Date) -- ^ 売上発生日
+      -> (Month, Date) -- ^ 売上入金日
+      -> Description -> Amount -> YearTransactions
+_売上 (m0, d0) (m1, d1) desc amount = do
+  month m0 $
+    _売上発生 d0 desc amount
+  month m1 $
+    _売上入金 d1 desc amount
+
+{-| 売上を記帳するためのヘルパ関数.
+  売上発生日に入金がある場合に用いる.
+  最終的な入金先は、簡単のため事業主貸としてあつかう.
+-}
+_即日売上 :: Date -> Description -> Amount -> MonthTransactions
+_即日売上 d0 desc amount =
+  activity d0 desc $
+    dateTrans
+      (DebitCategory $ Category "事業主貸" Assets)
+      (CreditCategory $ Category "売上高" Revenue)
+      "売上/入金"
+      amount
+
+{-| 売上から源泉徴収された際に、その源泉徴収額を記帳するためのヘルパ関数.
+-}
+_源泉所得税 :: Date -> Description -> Amount -> MonthTransactions
+_源泉所得税 d0 desc amount =
+  activity d0 desc $
+    dateTrans
+      (DebitCategory $ Category "事業主貸" Assets)
+      (CreditCategory $ Category "売上高" Revenue)
+      "源泉所得税"
+      amount
diff --git a/test/Doctest.hs b/test/Doctest.hs
new file mode 100644
--- /dev/null
+++ b/test/Doctest.hs
@@ -0,0 +1,19 @@
+module Main where
+
+import Data.Monoid ((<>))
+import System.FilePath.Glob (glob)
+import Test.DocTest (doctest)
+
+main :: IO ()
+main = glob "src/**/*.hs" >>= doDocTest
+
+doDocTest :: [String] -> IO ()
+doDocTest options = doctest $ options <> ghcExtensions
+
+ghcExtensions :: [String]
+ghcExtensions =
+    [ "-XOverloadedStrings"
+    , "-XRecordWildCards"
+    , "-XStrict"
+    , "-XStrictData"
+    ]
diff --git a/test/Spec.hs b/test/Spec.hs
new file mode 100644
--- /dev/null
+++ b/test/Spec.hs
@@ -0,0 +1,2 @@
+main :: IO ()
+main = putStrLn "Test suite not yet implemented"