Yasutaka Higa
*Main> primeCount 10 Delta 4 (Mono 5) *Main> deltaFromList [10, 20, 30] >>= primeCount Delta 4 (Delta 10 (Mono 15))