[Haskell-beginners] map increases length of list