-- With that, we need to transform a FullText value to a cleaned-up verson of
-- the same

cleanup :: SpecialCharTable -> FullText -> FullText
cleanup dict (FT a b c d e) = undefined
cleanup :: SpecialCharTable -> FullText -> FullText
cleanup dict (FT a b c d e) = undefined
cleanup dict (FT a b c d e) = undefined