; selects the first 'para' child of the context node
;
; Abbreviated XPath: para[1]
; Full XPath: child::para[position()=1]

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

; Low-level:
((node-reduce
    (select-kids (ntype?? 'para))
    (node-pos 1))
 tree)

; SXPath:
((sxpath `((para 1)))
 tree)

==>
((para (@) "para"))