[Haskell-beginners] can this be made shorter?