> module Entities (fixents) where
> import Data.String.Utils

> fixents :: [Char] -> [Char]
> fixents = (replace "£" "£") .
>           (replace "<" "&lt;"   ) .
>           (replace ">" "&gt;"   ) .
>           (replace "&" "&amp;"  )