bankmaxIR([IR],IR).
bankmaxIR([IR|LIST],MAX):-bankmaxIR(LIST,MAX1),(IR>=MAX1, MAX=IR ; IR<MAX1, MAX=MAX1),nl,
info1(MAX).
info1(A):-similarIR(A,L,N),
write('bank Name WITH MAXIMUM INTEREST RATE : '),write(N),write(A),nl.

bankminIR([A],A).
bankminIR([A|LIST],MIN):-bankminIR(LIST,MIN0),(A=<MIN0, MIN=A ; A>MIN0, MIN=MIN0),nl,
profile4(MIN).

profile4(A):-sameLocationIR(A,L,N),
write('bank Name WITH MinimUM LENDING RATE :'),write(A),write(N). 
similarIR(A,L,N);