> module Fixlatexchars
>        (fixlatexchars)
>         where

> import Data.String.Utils

> fixlatexchars :: [Char] -> [Char]
> fixlatexchars = (replace "&"         "\\&"         ) .
>                 (replace "#"         "\\#"         ) .
>                 (replace "%"         "\\%"         ) .
>                 (replace "LUALATEX"  "\\LuaLaTeX\\") .
>                 (replace "XELATEX"   "\\XeLaTeX\\" ) .
>                 (replace "LaTeX"     "\\LaTeX\\"   ) .
>                 (replace "XeLaTeX"   "XELATEX"     ) .
>                 (replace "LuaLaTeX"  "LUALATEX"    )