erMap = HashMap.fromList
  [ ( "〇", 0 )
  , ( "零", 0 )
  , ( "一", 1 )
  , ( "壹", 1 )
  , ( "兩", 2 )
  , ( "两", 2 )
  , ( "二", 2 )
  , ( "貳", 2 )
  , ( "三", 3 )
  , ( "參", 3 )
  , ( "四", 4 )
  , ( "肆", 4 )
  , ( "五", 5 )
  , ( "伍", 5 )
  , ( "六", 6 )
  , ( "陸", 6 )
  , ( "七", 7 )
  , ( "柒", 7 )
  , ( "八", 8 )
  , ( "捌", 8 )
  , ( "九", 9 )
  , ( "玖", 9 )
  , ( "十", 10 )
  , ( "拾", 10 )
  ]

tensMap :: HashMap.HashMap Text Integer
tensMap = HashMap.fromList
  [ ( "廿" , 20 )
  , ( "卅" 
integerMap :: HashMap.HashMap Text Integer
integerMap = HashMap.fromList
  [ ( "〇", 0 )
  , ( "零", 0 )
  , ( "一", 1 )
  , ( "壹", 1 )
  , ( "兩", 2 )
  , ( "两", 2 )
  , ( "二", 2 )
  , ( "貳", 2 )
  , ( "三", 3 )
  , ( "參", 3 )
  , ( "四", 4 )
  , ( "肆", 4 )
  , ( "五", 5 )
  , ( "伍", 5 )
  , ( "六", 6 )
  , ( "陸", 6 )
  , ( "七", 7 )
  , ( "柒", 7 )
  , ( "八", 8 )
  , ( "捌", 8 )
  , ( "九", 9 )
  , ( "玖", 9 )
  , ( "十", 10 )
  , ( "拾", 10 )
  ]
integerMap = HashMap.fromList
  [ ( "〇", 0 )
  , ( "零", 0 )
  , ( "一", 1 )
  , ( "壹", 1 )
  , ( "兩", 2 )
  , ( "两", 2 )
  , ( "二", 2 )
  , ( "貳", 2 )
  , ( "三", 3 )
  , ( "參", 3 )
  , ( "四", 4 )
  , ( "肆", 4 )
  , ( "五", 5 )
  , ( "伍", 5 )
  , ( "六", 6 )
  , ( "陸", 6 )
  , ( "七", 7 )
  , ( "柒", 7 )
  , ( "八", 8 )
  , ( "捌", 8 )
  , ( "九", 9 )
  , ( "玖", 9 )
  , ( "十", 10 )
  , ( "拾", 10 )
  ]