go:-start.
start:-write('----------Welcome Guest-----------'),nl,
	write('Press m for Cities list'),nl,
	write('Press r for detail info'),nl,
	write('Press B for  cities info'),nl,
	read(C),choice(C),nl,nl,nl,write('Do you to continue?(y/n)'),tab(1),
		  read(R),(R=y,start).
choice(C):-(C=m,ax;C=q,sqr;C=r,asci;C=b,std).
ax:-write('Here are some of cities...'),nl,write('Bahir Dar'),nl,write('Hawassa'),nl,write('Addis Ababa'),nl,write('Jonder').
stud(BD,'West Gojjam','500Km','Near Lake Tana').
std:-write(' Enter the city we want to know like BD for BAbir Dar,...: '),read(Id),nl,st(BD).
st(BD):-stud(BD,Region,Distance,Info),write('Region Found in: '),write(Region),nl,
       write('Distance from Addis Ababa:'),write(Distance),nl,
        write('Extra information:'),write(Info).