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