> 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 "" "" markline) .
> (process '`' '`' "" "" )