module Util where


newtype Opaque a = Opaque { unOpaque :: a }
  deriving (Eq, Ord)

instance Show (Opaque a) where
    show _ = "Opaque"