задача на списки

[ekaterina123]

имеется 2 файла со словами. Распечатать список слов которые встречаются в 2х файлах.( в одной строке-одно слово) слова второго файла помещаются в список(упорядоченный) 1слова 1 файла ищется в списке) задачи на стеки(((
помогите решить пожалуйста))))

[rrrFer]

database
	f1( string )
	f2( string )
domains     
    strList=string*
predicates
	listToDB1( strlist )
	listToDB2( strlist )
	find
clauses        
	listToDB1( [] ).
	listToDB1( [H|T] ):-
		assert( f1( H ) ),listToDB1( T ).
	listToDB2( [] ).
	listToDB2( [H|T] ):-
		assert( f2( H ) ),listToDB2( T ).
	find:-
		f1(X), f2(X),write(X), nl, fail;!.
goal
    LS1 = [ asd,we,rt,vfg,dfg,gh,dhrt, qwe ],
	LS2 = [ qwe, asd,sdfasd,fsd,fs,df,sd,gdf ],
	listToDB1( LS1),listToDB2( LS2),
	find, retractall( f1(_) ), retractall( f2(_) ).

тут поиск совпадающих элементов списков. Со вводом данных с файла, надеюсь, сам справишься.
Если нет - то вот фрагмент:

    separ(Str,[T|L]):-
        frontchar(Str,S3,S2),
        str_char(S5,S3),
        scan(S2,[T|L],S5),!.
    separ(_,[]).
    scan(Str,[T|L],S):-
        frontchar(Str,S3,S2),
        NOT(S3=' '),
        str_char(S5,S3),
        concat(S,S5,S1),
        scan(S2,[T|L],S1),!.
    scan("",[T|L],S):-
        T=S,separ("",L).
    scan(Str,[T|L],S):-
        T=S,frontchar(Str,_,S2),
        separ(S2,L),!.

Тут преобразование строки в список, МБ поможет