sum(V, 0) :- 0;
sum(V, I) :- vGet(V, I-1) + sum(V, I-1);

numword(0) :- ноль;
numword(1) :- один;
numword(2) :- два;
numword(3) :- три;
numword(4) :- четыре;
numword(5) :- пять;
numword(6) :- шесть;
numword(7) :- семь;
numword(8) :- восемь;
numword(9) :- девять;
numword(X) :- X;

words(V, 0) :- V;
words(V, I) :- vSet(V, I-1, numword(vGet(V, I-1))), words(V, I-1);

pushkin145() :-
  <book>
    AП-145
    <author>
      А.С. Пушкин
    </author>
    <title>
      Евгений Онегин
    </title>
  </book>
  ;

element(X) :- <element>_X;</element>;