1da
@verb #9682:"go" none none none rdo #9682
@program #9682:"go" none none none
this.out = {}
for x in (this.raw)
  if (index(x, "LIT"))
    {lhs, rhs} = {x[1..rindex(x, $su.tab)], x[rindex(x, $su.tab)..$]}
    lhs = $su:trim(lhs)
    rhs = $su:trim(rhs)
    player:tell("<precedent>")
    player:tell("<name>", lhs, "</name>")
    player:tell("<file>S:\\precedents\\divorce\\", rhs, ".wpt</file>")
    player:tell("</precedent>")
  endif
  suspend(0)
endfor
.

0