 
    ::gen-join-query
    (fn gen-join-query [{::keys [gen-query gen-union gen-recursion] :as env}]
-     (gen/frequency [[10 (gen-query env)
-                      2 (gen-union env)
-                      1 (gen-recursion env)]]))
+     (gen/frequency [[10 (gen-query env)]
+                     [2 (gen-union env)]
+                     [1 (gen-recursion env)]]))
 
    ::gen-union-key
    (fn gen-union-key [_] gen/keyword)

          :mutation ::mutation-tx)
    (default-gen ::gen-transaction)))

(comment
  (gen/sample (s/gen ::query))

  (let [system (assoc generators
                 ::gen-params

   ::gen-query-expr
   (fn gen-query-expr [{::keys [gen-property gen-join gen-ident gen-param-expr gen-special-property]
                        :as    env}]
     (gen/frequency [[20 (gen-property env)]
                     [6 (gen-join env)]
                     [1 (gen-ident env)]
                     [2 (gen-param-expr env)]
                     [1 (gen-special-property env)]]))

   ::gen-query
   (fn gen-query [{::keys [gen-query-expr gen-max-depth] :as env}]
