[Haskell-beginners] count function