(list
 (cons 'model
       (make-instance 'organization.beliefSystem.swarmBusinessEnvironment
                      #:simulationTimeLength 1
                      #:methodType 3
                      #:timePeriodLength 400
                      #:timeSlotLength 10
                      #:winSize 5
                      #:constantOfOrderUpTo 1.0
                      #:constantFunction 2.0)
                      )
)
