genGenerator :: GenRng -> (GenRng, GenRng)
genGenerator (GenRng rng) =
    let (newSeed1, rngNext) = randomGenerateWord64 rng
        (newSeed2, rngNext') = randomGenerateWord64 rngNext
     in (GenRng $ XorShift.initialize newSeed1 newSeed2, GenRng rngNext')
genGenerator :: GenRng -> (GenRng, GenRng)
genGenerator (GenRng rng) =
    let (newSeed1, rngNext) = randomGenerateWord64 rng
        (newSeed2, rngNext') = randomGenerateWord64 rngNext
     in (GenRng $ XorShift.initialize newSeed1 newSeed2, GenRng rngNext')
genGenerator (GenRng rng) =
    let (newSeed1, rngNext) = randomGenerateWord64 rng
        (newSeed2, rngNext') = randomGenerateWord64 rngNext
     in (GenRng $ XorShift.initialize newSeed1 newSeed2, GenRng rngNext')