Подскажите в чем ошибка? (Visual Prolog 7.4)

implement main
    open core, stdio
 
class predicates
    church: (string, string, string, integer)multi(o,o,o,o).
    test: ()procedure().
    print: (string*, Element*) determ.
 
clauses
    church("Миколаївський собор", "17 ст", "УПЦ ", 5).
    church("Введенський жіночий монастир", "17 ст", "УПЦ", 1).
    church(" Церква Богоявлення Господня", "18 ст", "УПЦ", 2).
    church("Покровська церква", "18 ст", "УПЦ", 2).
    church("Пантелеймоно-Василівська церква", "18 ст", "УПЦ", 2).
    church("Всіхсвятська церква", "17 ст", "УПЦ", 1).
 
    test() :- findall(N, church(N, _, _, _),SN), findall(D, church(_, _, _, D), SD), print(SN,SD),!.
    test().
    print([], []).
    print([H|T], [H1|T1]):- write (H," - ",H1," "), nl, print(T,T1).
 
clauses
    run():-
console::init(),
write(" Церкви та кількість їх куполів"), nl,
test(),
succeed(),
console::clearInput(),
_= console::readLine().
end implement main
 
goal
    mainExe::run(main::run).