don't generate agent 0 on cl formulas

randcool/randcool.hs

@@ -107,7 +107,7 @@ numAgents n = CL <$> buildSet I.empty (n+1)
     buildSet !acc m
       | m <= 0    = pure acc
       | otherwise = do heads <- rand
-                       let acc' = if heads then acc else I.insert (m-1) acc
+                       let acc' = if heads then acc else I.insert m acc
                        buildSet acc' (m-1)
 
 someFormula :: Rand mod -> RandConf -> Rand (Fm mod)