> module Inlinecode
>        (inlinecode)
>        where

> import Codec.Binary.Base64.String (encode)

> import Process
> import Sorttags
> import Delimiters

> markline :: String -> [Char]
> markline l = [inv1] ++ (encode l) ++ [inv2]

> inlinecode :: [Char] -> [Char]
> inlinecode = (sorttags "<inline>" "</inline>" markline) .
>              (process '`' '`' "<inline>" "</inline>"  )