 (deftest parameterized-functions
   (checking
    "Functions can be parameterized via the event map"
-   (times 20)
+   (times 5)
    [input (gen/vector (gen-segment))
     params (gen/vector gen/any)]
    (let [f (fn [& args] {:result (or (butlast args) [])})

(deftest multi-segment-return
  (checking
   "Multiple segments can be returned, attached to their root"
   (times 20)
   [input (gen-segment)
    output (gen/vector (gen/map gen/any gen/any))]
   (let [f (fn [segment] output)

(deftest multi-batch-size-single-rets
  (checking
   "It generalizes with a bigger batch size for single returns"
   (times 5)
   ;; Uses a unique mapping of keys to values to look up an
   ;; input for an output with no collisions.
   [input (gen/vector (gen/hash-map
