data Elem = Elem String deriving (Show, Eq) instance Ord Elem where Elem x < Elem y = length x < length y tree1 = insert (Elem "Some string") Empty tree2 = remove (Elem "Some string") tree1