[Haskell-beginners] how can I make this work