Maybe a weird question but, can I print or debug intermediate bindings in queries?

{:find [x]
 :in [m another-m]
 :where [[(keys m) ?m-keys]
         [(select-keys another-m ?m-keys) ?another-m]]}