Подключение базы данных - Prolog - Ответ 2834700

 kol([A|B],A,X):-!,kol(B,A,Y), X = Y+1.
 kol([_|B],C,X):-kol(B,C,X).
 kol([],_,0).
 
 showhead([H|T]):-kol(H,"a",Ch),nl,showhead(T),J=Ch+1,assert(counter(J)).
  showhead([]).

domains
list=string*
list_list=list* 
file     = infile ; outfile
 
predicates
del2(string,list,list).
del1(string,list_list,list_list). 
write_list_list(list_list).
write_list(list).
main.
read_input(list_list).
string_to_list(string,list).
clauses
 
read_input([List|Tail]):-readln(S),!,string_to_list(S,List),read_input(Tail).
read_input([]).
 
string_to_list(S,[H|Tail]):-fronttoken(S,H,S1),!,string_to_list(S1,Tail).
string_to_list(_,[]).
 
del1(_,[],[]).
del1(EL,[H|T],[H1|T1]):-del2(El,H,H1),del1(EL,T,T1).
del1(EL,[[]|T],[[]|T1]):-del1(EL,T,T1).
 
del2(_,[],[]).
del2(El,[El|T],T):-!.
del2(El,[X|T],[X|T1]):-del2(El,T,T1).
 
write_list_list([]).
write_list_list([H|Tail]):-write_list(H),nl,write_list_list(Tail).
 
write_list([]).
write_list([H|Tail]):-write(H," "),write_list(Tail). 
 
main:-F="C:\\hm.dat",openread(infile,F),readdevice(infile),read_input(A),closefile(infile),
        del1("a",A,B),
        openwrite(outfile,"C:\\lol22.dat"),writedevice(outfile),write_list_list(B),closefile(outfile).
goal
main,nl.