Программа

У меня есть программа на русской версии Пролога по склеиванию списков.

склеивание([],_X,_X).
склеивание([_Х|_У1],_У2,[_Х|У3]):-склеивание(_У1,_У2,_У3).
?-склеивание([1,2,3,6,9],[3,8,10,15],_Х).

А мне надо, чтобы в новый список объединялись только элементы, кратные трем. Кто-нибудь может подсказать?

Если ещё нужно:

domains
  numlist = integer*
predicates
  concatt(numlist, numlist, numlist)
  kr3    (numlist, numlist)
clauses
  concatt([],X,X).
  concatt([X|Y1], Y2, [X|Y3]):-
    concatt(Y1, Y2, Y3).
  kr3([], L).
  kr3([H|T], [H|R]):-
    0 = H mod 3,
    kr3(T,R).
  kr3([H|T], R):-
    kr3(T,R).
goal
  concatt([1,2,3,6,9],[3,8,10,15], X),
  kr3(X,Y),
  write(Y).