{-# htermination deleteBy :: (a -> a -> Bool) -> a -> [a] -> [a] #-} import List