Merge branch changes from daniel

randcool/randcool.hs

@@ -102,7 +102,7 @@ gradesBetween from to = G <$> inRange (from,to)
 
 
 numAgents :: Nat -> Rand CL
-numAgents n = CL <$> buildSet I.empty (n+1)
+numAgents n = CL <$> buildSet I.empty n
   where
     buildSet !acc m
       | m <= 0    = pure acc