To use this thing:
(load "msim-far.lisp")
sim
or sim-mt
functions to start the simulation:sim rounds citizens
sim-mt nthreads citizens nrounds
An example with sim-mt
which supports multithreading:
sim-mt 2 '(m r r r) 10
Or to add fool:
sim-mt 2 '(m m f r r r r r) 10