> module Sortinv
>        (sortinv)
>        where

> import Process

> sortinv :: [Char] -> [Char]
> sortinv = process '"' '"' "<lqq/>" "<rqq/>"