ПРОЛОГ (дописать задание)

[fidjy]

Здравствуйте. Помогите дописать задачку. Понимаю, что такая задача наверняка уже рассматривалась и я находила решения, но только на турбо-прологе или SWI, а я программирую через приложение PIE-32...

Задание: Из списка символов S1, S2, ..., SN исключить все символы между круглыми скобками. Сами скобки тоже должны быть отброшены. Од-нако, если внутри круглых скобок есть другая пара круглых скобок, то она и содержащиеся в ней символы должны быть сохранены. И так далее рекурсивно. Например, последовательность "ab(c(d(ef(gh)z)fg)r)dd(ik(l))" преобразуется в "ab(d(gh)fg)dd(l)".

Вот то, что написала, но надо отредактировать, чтобы нормально работала...

del([],_,L,L).
del(['('|B],_,L,R):- del(B,0,L,R).
del([')'|B],_,L,R):- del(B,1,L,R).
del([H|B],0,L,R) :- H\=='(',H\==')', del(B,0,R,R).
del([H|B],1,L,R) :- H\=='(',H\==')', del(B,1,R,[H|R]).