diff --git a/README.md b/README.md
index cf37718..27363f2 100644
--- a/README.md
+++ b/README.md
@@ -1,3 +1,3 @@
 # waza-hs
 
-library for handling japanese text in haskell
\ No newline at end of file
+wazajisho library for handling japanese text in haskell
diff --git a/examples/Main.hs b/examples/Main.hs
new file mode 100644
index 0000000..7146c80
--- /dev/null
+++ b/examples/Main.hs
@@ -0,0 +1,7 @@
+import KanaConv (convertHalfToFull)
+
+main :: IO ()
+main = do
+  let input = "おいそこのｷﾐ｡あっはいはいはいは～い｡"
+  let output = convertHalfToFull input
+  putStrLn output
diff --git a/src/KanaConv.hs b/src/KanaConv.hs
new file mode 100644
index 0000000..4cd1962
--- /dev/null
+++ b/src/KanaConv.hs
@@ -0,0 +1,36 @@
+-- Copyright © 2024 Hashirama Senju
+
+{-# LANGUAGE OverloadedStrings #-}
+
+module KanaConv (convertHalfToFull) where  -- Export convertHalfToFull function
+
+import qualified Data.Map as Map
+import Data.Maybe (fromMaybe)
+
+-- The Kana mapping for half-width to full-width katakana
+halfToFullMapping :: Map.Map String String
+halfToFullMapping = Map.fromList
+  [ ("ｱ", "ア"), ("ｲ", "イ"), ("ｳ", "ウ"), ("ｴ", "エ"), ("ｵ", "オ")
+  , ("ｶ", "カ"), ("ｷ", "キ"), ("ｸ", "ク"), ("ｹ", "ケ"), ("ｺ", "コ")
+  , ("ｻ", "サ"), ("ｼ", "シ"), ("ｽ", "ス"), ("ｾ", "セ"), ("ｿ", "ソ")
+  , ("ﾀ", "タ"), ("ﾁ", "チ"), ("ﾂ", "ツ"), ("ﾃ", "テ"), ("ﾄ", "ト")
+  , ("ﾅ", "ナ"), ("ﾆ", "ニ"), ("ﾇ", "ヌ"), ("ﾈ", "ネ"), ("ﾉ", "ノ")
+  , ("ﾊ", "ハ"), ("ﾋ", "ヒ"), ("ﾌ", "フ"), ("ﾍ", "ヘ"), ("ﾎ", "ホ")
+  , ("ﾏ", "マ"), ("ﾐ", "ミ"), ("ﾑ", "ム"), ("ﾒ", "メ"), ("ﾓ", "モ")
+  , ("ﾤ", "ヤ"), ("ﾦ", "ユ"), ("ﾧ", "ヨ"), ("ﾨ", "ラ"), ("ﾩ", "リ")
+  , ("ﾪ", "ル"), ("ﾬ", "レ"), ("ﾮ", "ロ"), ("ﾜ", "ワ"), ("ｦ", "ヲ")
+  , ("ﾝ", "ン"), ("ｧ", "ァ"), ("ｨ", "ィ"), ("ｩ", "ゥ"), ("ｪ", "ェ")
+  , ("ｫ", "ォ"), ("ｯ", "ッ"), ("ｬ", "ャ"), ("ｭ", "ュ"), ("ｮ", "ョ")
+  , ("｡", "。"), ("､", "、"), ("･", "・"), ("゛", "ﾞ"), ("゜", "ﾟ")
+  , ("｢", "「"), ("｣", "」"), ("ｰ", "ー")
+  ]
+
+-- Function to replace half-width characters with full-width characters
+replaceChar :: Char -> String
+replaceChar char
+  | Just full <- Map.lookup [char] halfToFullMapping = full
+  | otherwise = [char]
+
+-- Function to convert the entire string
+convertHalfToFull :: String -> String
+convertHalfToFull = concatMap replaceChar