Сумма чётных цифр в строке - Prolog

Формулировка задачи:

Здравствуйте!

Помогите пожалуйста доработать программу. Ошибка вроде элементарная, но я не могу понять как её исправить.

Задача:

Цепочки символов (строки) создаются по следующему правилу. Первая строка состоит из одного символа – цифры «1». Каждая из последующих цепочек создается следующим действием: в очередную строку дважды записывается предыдущая цепочка цифр (одна за другой, подряд), а в конец приписывается еще одно число – номер строки по порядку (на i-м шаге дописывается число «i»). Вот первые 4 строки, созданные по этому правилу: (1) 1 (2) 112 (3) 1121123 (4) 112112311211234 Написать определение строки и запрос, позволяющий узнать, сколько раз в общей сложности встречаются в j-й строке четные цифры (2, 4, 6, 8)?

                    Листинг программы
                
 
                        
                          
                    
domains
  lane = string
  int = integer
predicates
  form_str (int, lane) % формирует строку (int - номер строки, lane - строка)
  find (int, int) % формирует строку и производит сумму элементов в строке (int - номер строки, int - сумма элементов)
  find_in (lane, int) % ищет сумму элементов в строке (lane - строка, int - сумма элементов)
clauses
  form_str (1, "1").
  form_str (N, X) :-
    N>0, N1 = N-1, form_str (N1, Y), concat (Y, Y, X0),
    str_int (Nstr, N), concat (X0, Nstr, X).
  find_in ("", 0).
  find_in (X, Sum) :- 
    frontchar (X, X1, X2), X1 mod 2 = 0,
    Sum1 = Sum + X1, find_in (X2, Sum1).
  find_in (X, Sum) :-
    frontchar (X, X1, X2), X1 mod 2 <> 0,
    find_in (X2, Sum).
  find (N, Sum) :-
    form_str (N, X),
    find_in (X, Sum).

Ошибка "

Fre variable in expression

" в 16-ой строке (

Sum1 = Sum + X1

). Ошибка не при компиляции, а при запуске программы, т.к.

Sum

не конкретизирована, но как это сделать, я не знаю. Вроде конкретизировал же в базисе рекурсии? Может я ещё как-то не очень грамотно или эффективно прогу написал, выслушаю критику, желательно прямо с кодом исправленным)

Решение задачи: «Сумма чётных цифр в строке»

textual
                            Листинг программы 
                        
Sum = Sum1 + X1