go:-menu.
menu:-write('----------Welcome-----------'),nl,
	write('Press m for to know the bank and location'),nl,
	read(C),choice(C),nl,write('Do you to continue?(y/n)'),tab(1),
		  read(R),(R=y,start).
choice(C):-(C=2,b3;C=4,b2,b1).
b1(4,'georgis','abysinia).
b2(4,'center','awash').
b3(2,'gebeya,'cbe').
b1:-write('Enter interest: '),read(Id),nl,b1(Id).
b1(Id):-bank(Id,Name,location),write('Name: '),write(Name),nl,write('Location :'),write(Location).