easy 20 in haskell, primality