bank(center,awash,4,7).
%bank(gebeya,cbe,2,5).
bank(2,gebeya,cbe).
similarIR(4,georgis,abysinia).
similarIR(4,center,awash).

similarLR(5,gebeya,abysinia).
similarLR(6,georgis,abysinia).
similarLR(7,center,awash).


menu:-write('which bank u want to go?'),nl,
write('Please enter the interest rate: '),nl,
read(A),tellinfo1(A),info1(Y),
menu2.
%similarIR(A,L,N)
tellinfo1(A):-bank(A,L,N);similarIR(A,L,N),
write('Bank name: '),write(N),nl,
write('Bank found near: '),write(L),nl.
tellinfo1(A):-!,write('Sorry no bank is/are found on thise interest rate.'),nl,menu2,
write('Do you to continue?(y/n)'),tab(1),
		  read(R),(R=y,menu).
menu2:-write('Or u can search using lending rate?'),nl,
write('Enter lending rate: '),nl,
read(A),tellinfo2(A).

tellinfo2(A):-similarLR(A,L,N),
write('Bank name: '),write(N),nl,
write('Bank found near: '),write(L),nl,profile4(X).
tellinfo2(A):-!,write('Sorry no bank is/are found on thise lending rate.'),nl,
write('Do you to continue?(y/n)'),tab(1),
		  read(R),(R=y,menu).

bankmaxIR([IR],IR).
bankmaxIR([IR|LIST],MAX):-bankmaxIR(LIST,MAX1),(IR>=MAX1, MAX=IR ; IR<MAX1, MAX=MAX1),nl,
info1(MAX).
info1(Y):-similarIR(A,L,N),write('tips:'),
write('Maximum interest rate back name : '),tab(1),write(N),write(:),tab(1),write(A),write('%'),nl.

bankminIR([A],A).
bankminIR([A|LIST],MIN):-bankminIR(LIST,MIN0),(A=<MIN0, MIN=A ; A>MIN0, MIN=MIN0),nl,
profile4(MIN).
profile4(X):-similarLR(A,L,N),write('tips:'),
write('minimum lending rate bank name :'),write(N),write(:),write(A),write('%'),nl,
write('Do you to continue?(y/n)'),tab(1),
		  read(R),(R=y,menu).