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

    (s/and list? (s/cat :expr ::join-key-param-key :params ::params))
    (default-gen ::gen-join-key-param-expr)))

(s/def ::query-expr
  (s/or :prop ::property
        :join ::join
        :ident ::ident
        :param-exp ::param-expr
        :special ::special-property))


        (fp/query->ast query))))

  (gen/sample (make-gen {::gen-params
                         (fn [_] (gen/return {:param "value"}))}
                ::gen-query)
    10)

