%:-clrscr.
bank(georgis,abysinia,20,6).
bank(center,awash,2,1).
bank(gebeya,cbe,1,4).
bank(west,westcost,150,0).
go:-start.
start:- write('press c to name of bank with  min lending rate'),nl,
         write('press d to name of bank with max interst rate'),nl,
	read(C),choice(C),nl,write('Do you to continue? if yes press (y/n)'),nl,
		  read(R),(R=y,start).
choice(C):-(C=c, minlr(N1),searchnl(N1); C=d, maxir(N1),searchmaxir(N1)).
%  maxirmum lending  Rate
minlr(N1):- bank(X,_,_,N1), not( lend(X)), !.
lend(X):- bank(X,_,_,N), bank(_,_,_,M), M <N.
searchnl(Ir):-bank(A,B,_,Ir),write('Recommended minimum LR'),nl,
	                     write('Bank Name  = '),write(B),
			     write('  Bank Location = '),write(A), tab(1),write('.....'),write(Ir),write('%'),nl.
% Maximum Interest Rate
maxir(N1):- bank(X,_,N1,_), not( check(X)), !.
check(X):- bank(X,_,N,_), bank(_,_,M,_), M >N.
searchmaxir(Ir):-bank(A,B,Ir,_),nl,write('The Bank which has Maximum Interest Rate:'),nl,
	                       write('Bank Name  = '),write(B),
			          write('  Bank Location = '),write(A),tab(1),write('.....'),write(Ir),write('%'),nl.
cls:- jok.
jok:-put(27),put(91),put(56),put(74). 
:-message.
:-clear_screen.
:-jok.