Здравствуйте.
Подскажите, пожалуйста, как оставить в списке только повторяющиеся элементы?

Код

data Library = Book String String | Newspaper String Int Int Int | Journal String Int Int deriving (Show, Eq)

getAuthorss :: [Library] -> [String]
findEq :: [String] -> String -> [String]
findEq [] x = [x]
findEq (x:xs) y = x:findEq xs y
getAuthorss [] = []
getAuthorss ((Book _ _):xs) = getAuthorss xs
getAuthorss ((Newspaper x _ _ _):xs) = findEq (getAuthorss xs) x
getAuthorss ((Journal x _ _):xs) = findEq (getAuthorss xs) x


тут мы получили список всех авторов, с повторами и без. а как теперь из списка удалить те, которые встречаются только 1 раз?

(авторов книг учитывать по условию не нужно)