(
defn
identify
[
root
]
(
doseq
[
w
(
select root
[
:
*
]
)
]
(
if-let
[
n
(
.
getName w
)
]
(
selector
/
id
-
of
!
w
(
keyword n
)
)
)
)
root
)