[Haskell-beginners] is this not a better way ? data structure