fromFF :: (FFE, FFC) -> [(Int, BSLU.ByteString)]
fromFF (Range begin end, Uni code) = zipWith
                                       (\cid unicode -> (cid, textize $ chr unicode))
                                       [begin..end] [(ord code)..]
fromFF :: (FFE, FFC) -> [(Int, BSLU.ByteString)]
fromFF (Range begin end, Uni code) = zipWith
                                       (\cid unicode -> (cid, textize $ chr unicode))
                                       [begin..end] [(ord code)..]
fromFF (Range begin end, Uni code) = zipWith
                                       (\cid unicode -> (cid, textize $ chr unicode))
                                       [begin..end] [(ord code)..]