Stub for Miller-Rabin primality test in haskell