improve Prime Numbers

Haskell