 
    ::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)


(defn default-gen [name]
  #((get generators name) generators))

(s/def ::property keyword?)
(s/def ::special-property #{'*})


   ::gen-join-key
   (fn gen-join-key [{::keys [gen-property gen-ident gen-join-key-param-expr] :as env}]
     (gen/frequency [[10 (gen-property env)]
                     [3 (gen-ident env)]
                     [1 (gen-join-key-param-expr env)]]))

   ::gen-join-key-param-key
   (fn gen-join-key-param-key [{::keys [gen-property gen-ident] :as env}]
