Неверное удаление символов - Prolog

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

Проблема заключается в том, что необходимо, что бы из 2й строки удалялись все символы 1й строки. Однако у меня удаляются не сами символы, а их последовательность. Вот код:

DOMAINS
    p=string
 
PREDICATES
    del(p,p,p)
 
CLAUSES
    del(Slovo,Stroka,Result):- 
    concat(Slovo,D,Stroka), !, 
    del(Slovo,D,Result).
    
    del(Slovo,Stroka,Result):- 
    frontstr(1,Stroka,D,E), !, 
    del(Slovo,E,F), 
    concat(D,F,Result).
    del(_,_,"").
 
GOAL
    del("abc", "abcas rgaba trvbgt abc tgt", X), write(X).

Заранее спасибо за помощь.

Решение задачи: «Неверное удаление символов»

textual
                            Листинг программы 
                        

                            predicates
instr(char, string)
del(string, string, string)
 
clauses
instr(C, S) :-
    frontchar(S, C, _),
    !.
instr(C, S) :-
    frontchar(S, _, SS),
    instr(C, SS).
 
del(_, "", "").
del(S1, S2, S3) :-
    frontchar(S2, C, SS2),
    instr(C, S1),
    !,
    del(S1, SS2, S3).
del(S1, S2, S3) :-
    frontchar(S2, C, SS2),
    del(S1, SS2, SS3),
    frontchar(S3, C, SS3).
                        