--replace will replace with strange fn* forms

[jmromrell]

It will replace code like this:

  (-> (mc/insert-batch db coll docs)
      (#(if (mr/acknowledged? %) ids nil))))))

with

  ((fn* [p1__127951#] (when (mr/acknowledged? p1__127951#) ids)) (mc/insert-batch db coll docs)))))

or

  (dorun (map #(sync-db conn %) db-configs)))))

with

  (run! (fn* [p1__141032#] (sync-db conn p1__141032#)) db-configs))))