> module Emph
>        (emph)
>        where

> import Process
> import Sorttags

> emph :: [Char] -> [Char]
> emph = (sorttags "<emph>" "</emph>" id) .
>        (process '_' '_' "<emph>" "</emph>")