[Haskell-cafe] Defining a containing function on polymorphic list