 , prod = \case
      (Token RegexMatch (GroupMatch (match:_)):_) ->
        HashMap.lookup (Text.toLower match) tensMap >>= integer
      _ -> Nothing
  }

hundredsMap :: HashMap Text Integer
hundredsMap = HashMap.fromList
  [ ( "ასი"      , 100 )
  , ( "ორასი"    , 200 )
  , ( "სამასი"   , 300 )
  , ( "ოთხასი"   , 400 )
  , ( "ხუთასი"   , 500 )
  , ( "ექვსასი"  , 600 )
  , ( "შვიდასი"  , 700 )
  , ( "რვაასი"   , 800 )
  , ( "ცხრაასი"  , 900 )
  , ( "ას"       , 100 )
  , ( "ორას"     , 200 )
  , ( "სამას"    , 300 )
  , ( "ოთხას"    , 400 )
  , ( "ხუთას"    , 500 )
  , ( "ექვსას"   , 600 )
  , ( "შვიდას"   , 700 )
  , ( "რვაას"    , 800 )
  , ( "ცხრაას"   , 900 )
  , ( "ორ ას"    , 200 )
  , ( "სამ ას"   , 300 )
  , ( "ოთხ ას"   , 400 )
  , ( "ხუთ ას"   , 500 )
  , ( "ექვს ას"  , 600 )
  , ( "შვიდ ას"  , 700 )
  , ( "რვა ას"   , 800 )
  , ( "ცხრა ას"  , 900 )
  , 
tensMap :: HashMap Text Integer
tensMap = HashMap.fromList
  [ ( "ოცი"         , 20 )
  , ( "ოცდა"        , 20 )
  , ( "ოც"          , 20 )
  , ( "ოცდაათ"      , 30 )
  , ( "ოცდაათი"     , 30 )
  , ( "ორმოც"       , 40 )
  , ( "ორმოცი"      , 40 )
  , ( "ორმოცდა"     , 40 )
  , ( "ორმოცდაათ"   , 50 )
  , ( "ორმოცდაათი"  , 50 )
  , ( "სამოც"       , 60 )
  , ( "სამოცი"      , 60 )
  , ( "სამოცდა"     , 60 )
  , ( "სამოცდაათ"   , 70 )
  , ( "სამოცდაათი"  , 70 )
  , ( "ოთხმოც"      , 80 )
  , ( "ოთხმოცი"     , 80 )
  , ( "ოთხმოცდა"    , 80 )
  , ( "ოთხმოცდაათ"  , 90 )
  , ( "ოთხმოცდაათი" , 90 )
  ]
tensMap = HashMap.fromList
  [ ( "ოცი"         , 20 )
  , ( "ოცდა"        , 20 )
  , ( "ოც"          , 20 )
  , ( "ოცდაათ"      , 30 )
  , ( "ოცდაათი"     , 30 )
  , ( "ორმოც"       , 40 )
  , ( "ორმოცი"      , 40 )
  , ( "ორმოცდა"     , 40 )
  , ( "ორმოცდაათ"   , 50 )
  , ( "ორმოცდაათი"  , 50 )
  , ( "სამოც"       , 60 )
  , ( "სამოცი"      , 60 )
  , ( "სამოცდა"     , 60 )
  , ( "სამოცდაათ"   , 70 )
  , ( "სამოცდაათი"  , 70 )
  , ( "ოთხმოც"      , 80 )
  , ( "ოთხმოცი"     , 80 )
  , ( "ოთხმოცდა"    , 80 )
  , ( "ოთხმოცდაათ"  , 90 )
  , ( "ოთხმოცდაათი" , 90 )
  ]