; selects the 'name' attribute of the context node
;
; Abbreviated XPath: @name
; Full XPath: attribute::name

(define tree 
'(elem
 (@ (name "elem") (id "idz"))
 (para (@) "para")
 (br (@))
 "cdata"
 (para (@) "second par")
 (div (@ (name "aa")) (para (@) "third para")))
 )

; Low-level:
((node-join (select-kids (ntype?? '@))
	      (select-kids (ntype?? 'name)))
 tree)

; SXPath:
((sxpath `(@ name))
 tree)

==>
((name "elem"))