-- |
-- Computes in how many ways a word can be matched against a regular
-- expression.
-- 
matchingCount :: (Eq a, Num a) => RegExp c -> [c] -> a
matchingCount r = getNumeric . fullMatch r
matchingCount :: (Eq a, Num a) => RegExp c -> [c] -> a
matchingCount r = getNumeric . fullMatch r
matchingCount r = getNumeric . fullMatch r