pg2_test.clj

(gen/phases
                                (->> (range sample-size)
                                  (map (fn [x] {:type  :invoke
                                                :f     :add
                                                :value x}))
                                  gen/seq
                                  (gen/stagger 1/10)
                                  (gen/delay 1)
                                  (gen/nemesis
                                    (gen/seq
                                      (cycle [(gen/sleep 60)
                                              {:type :info :f :start}
                                              (gen/sleep 300)
                                              {:type :info :f :stop}]))))
                                (gen/nemesis
                                  (gen/once {:type :info :f :stop})))