> module Latextags
>        (latexverb
>        ,latexverbatim
>        , latexi, latexl
>        ,latexbold
>        ,latexp
>        ,latexq
>        ,latexqq
>        ,latexblock
>        ,latexemph
>        ,latexurl
>        ,latexhref
>        ,latexh1
>        ,latexh2
>        ,latexh3)
>         where

> import Data.String.Utils

> latexh1 :: String -> String
> latexh1 = (replace "</head1>" "}") .
>           (replace "<head1>" "\\cprotect{\\section*}{")

> latexh2 :: String -> String
> latexh2 = (replace "</head2>" "}") .
>           (replace "<head2>" "\\cprotect{\\subsection*}{")

> latexh3 :: String -> String
> latexh3 = (replace "</head3>" "}") .
>           (replace "<head3>" "\\cprotect{\\subsubsection*}{")

> latexverb :: String -> String
> latexverb = (replace "</inline>" "¬"     ) .
>             (replace "<inline>" "\\Verb¬")

> latexverbatim :: String -> String
> latexverbatim = (replace "</verbatim>" "\\end{Verbatim}"  ) .
>                 (replace "<verbatim>"  "\\begin{Verbatim}")

> latexblock :: String -> String
> latexblock = (replace "</quote>" "\\end{quoting}\n" ) .
>              (replace "<quote>"  "\\begin{quoting}\n")

> latexp :: String -> String
> latexp = (replace "</para>" "") . (replace "<para>" "")

> latexbold :: String -> String
> latexbold = (replace "</bold>" "}"        ) .
>             (replace "<bold>"  "\\textbf{")

> latexemph :: String  -> String
> latexemph = (replace "</emph>" "}"        ) .
>             (replace "<emph>"  "\\textsl{")

> latexurl :: String -> String
> latexurl = (replace "</url>" "}"    ) .
>            (replace "<url>" "\\url{")

> latexhref :: String -> String
> latexhref = (replace "</href>" "}"      ) .
>             (replace "<href>"  "\\href{") .
>             (replace "</desc>" "}"      ) .
>             (replace "<desc>"  "{"      )

> latexq :: String -> String
> latexq = (replace "<lq/>" "`") . (replace "<rq/>" "'")

> latexqq :: String -> String
> latexqq = (replace "<lqq/>" "``") . (replace "<rqq/>" "\"")

> latexl = (replace "</list>" "\\end{itemize}") . (replace "<list>" "\\begin{itemize}")

> latexi = (replace "</item>" "") . (replace "<item>" "\\item ")