add numSparks :: IO Int (#4167)