[Haskell-beginners] wierd quickcheck outcome