unicode-0.0: Construct and transform unicode characters
Data.Char.Number
fractionMap :: (Ord a, Fractional a) => Map a CharSource