largeNonMersennePrime :: Integer
largeNonMersennePrime = let a = 28433 * 2^7830457 + 1
                            b = 10000000000
                         in a `mod` b
largeNonMersennePrime :: Integer
largeNonMersennePrime = let a = 28433 * 2^7830457 + 1
                            b = 10000000000
                         in a `mod` b
largeNonMersennePrime = let a = 28433 * 2^7830457 + 1
                            b = 10000000000
                         in a `mod` b