-- | Count the number of particles produced by SMC
check_particles :: Int -> Int -> IO Int
check_particles observations particles =
  sampleIOfixed (fmap length (runPopulation $ smc observations particles Sprinkler.soft))
check_particles :: Int -> Int -> IO Int
check_particles observations particles =
  sampleIOfixed (fmap length (runPopulation $ smc observations particles Sprinkler.soft))
check_particles observations particles =
  sampleIOfixed (fmap length (runPopulation $ smc observations particles Sprinkler.soft))