თორმეტი?|ცამეტი?|თოთხმეტი?|თხუთმეტი?|თექვსმეტი?|ჩვიდმეტი?|თვრამეტი?|ცხრამეტი?|ცხრა|ა?ათი)"
    ]
  , prod = \case
      (Token RegexMatch (GroupMatch (match:_)):_) ->
        let x = Text.toLower match in
        (HashMap.lookup x zeroNineteenMap >>= integer) <|>
        (HashMap.lookup x informalMap 
informalMap :: HashMap Text Integer
informalMap = HashMap.fromList
  [ ( "ერთი"       , 1 )
  , ( "წყვილი"     , 2 )
  , ( "წყვილები"   , 2 )
  , ( "ცოტა"       , 3 )
  , ( "რამდენიმე"  , 3 )
  , ( "რამოდენიმე" , 3 )
  ]
informalMap = HashMap.fromList
  [ ( "ერთი"       , 1 )
  , ( "წყვილი"     , 2 )
  , ( "წყვილები"   , 2 )
  , ( "ცოტა"       , 3 )
  , ( "რამდენიმე"  , 3 )
  , ( "რამოდენიმე" , 3 )
  ]