ity.Bowl)
  , ("ពែង", TQuantity.Cup)
  , ("កែវ", TQuantity.Cup)
  , ("ថូ", TQuantity.Pint)
  , ("ស្លាបព្រា", TQuantity.Tablespoon)
  , ("ស្លាបព្រាបាយ", TQuantity.Tablespoon)
  , ("ស្លាបព្រាកាហ្វេ", TQuantity.Teaspoon)
  , ("នាក់", TQuantity.Custom "For Persons")
  , ("ក្បាល", TQuantity.Custom "For Animals")
  , ("ដើម", TQuantity.Custom "For Trees")
  , ("ទង", TQuantity.Custom "For Flowers")
  , ("ខ្នង", TQuantity.Custom "For Buildings")
  , ("គ្រឿង", TQuantity.Custom "For Vehicles/Devices")
  , ("កញ្ចប់", TQuantity.Custom "For Packages")
  , ("ឈុត", TQuantity.Custom "Sets")
  ]

ruleNumeralUnits :: Rule
ruleNumeralUnits = Rule
  { name = "<number><units>"
  , pattern =
    [ dimension Numeral
    , regex "(ចាន|ពែង|កែវ|ថូ|ស្លាបព្រា|ស្លាបព្រាបាយ|ស្លាបព្រាកាហ្វេ|នាក់|ក្បាល|ដើម|ទង|ខ្នង|គ្រឿង|កញ្ចប់|ឈុត)"
    ]
  , prod =
unitsMap :: HashMap Text TQuantity.Unit
unitsMap = HashMap.fromList
  [ ("ចាន", TQuantity.Bowl)
  , ("ពែង", TQuantity.Cup)
  , ("កែវ", TQuantity.Cup)
  , ("ថូ", TQuantity.Pint)
  , ("ស្លាបព្រា", TQuantity.Tablespoon)
  , ("ស្លាបព្រាបាយ", TQuantity.Tablespoon)
  , ("ស្លាបព្រាកាហ្វេ", TQuantity.Teaspoon)
  , ("នាក់", TQuantity.Custom "For Persons")
  , ("ក្បាល", TQuantity.Custom "For Animals")
  , ("ដើម", TQuantity.Custom "For Trees")
  , ("ទង", TQuantity.Custom "For Flowers")
  , ("ខ្នង", TQuantity.Custom "For Buildings")
  , ("គ្រឿង", TQuantity.Custom "For Vehicles/Devices")
  , ("កញ្ចប់", TQuantity.Custom "For Packages")
  , ("ឈុត", TQuantity.Custom "Sets")
  ]
unitsMap = HashMap.fromList
  [ ("ចាន", TQuantity.Bowl)
  , ("ពែង", TQuantity.Cup)
  , ("កែវ", TQuantity.Cup)
  , ("ថូ", TQuantity.Pint)
  , ("ស្លាបព្រា", TQuantity.Tablespoon)
  , ("ស្លាបព្រាបាយ", TQuantity.Tablespoon)
  , ("ស្លាបព្រាកាហ្វេ", TQuantity.Teaspoon)
  , ("នាក់", TQuantity.Custom "For Persons")
  , ("ក្បាល", TQuantity.Custom "For Animals")
  , ("ដើម", TQuantity.Custom "For Trees")
  , ("ទង", TQuantity.Custom "For Flowers")
  , ("ខ្នង", TQuantity.Custom "For Buildings")
  , ("គ្រឿង", TQuantity.Custom "For Vehicles/Devices")
  , ("កញ្ចប់", TQuantity.Custom "For Packages")
  , ("ឈុត", TQuantity.Custom "Sets")
  ]