> module Uninv (uninv) where
> import Process
> import Delimiters
> import Sorttags
> import Codec.Binary.Base64.String (decode)

> uninv :: [Char] -> [Char]
> uninv = (sorttags  [inv1] [inv2]  decode) .
>         (process inv1 inv2 [inv1] [inv2])