{-# htermination delete :: Eq a => a -> [a] -> [a] #-} import List