; xpath.scm
;
; mzscheme -r xpath.scm <filename> <xpath>
;

(require (planet "sxml.ss" ("lizorkin" "sxml.plt" 1 4)))

[srl:sxml->xml
 ((sxpath 
   (vector-ref (current-command-line-arguments) 1))
  (sxml:document 
   (vector-ref (current-command-line-arguments) 0)))
 (current-output-port)
]