Prologggggg

:- dynamic nation/3, geography/2, members/2.
% nation(Abbreviation,Name, Address)
nation('GH','Gastrike-Halsinge nation', address('Tradgardsgatan', 9)).
nation('V-Dala','Vastmanlands-Dala nation', address('S:t Larsgatan', 13)).
nation('NN','Norrlands nation', address('Vastra Agatan', 14)).
nation('OG','Ostgota nation', address('Tradgardsgatan', 15)).
nation('Stocken','Stockholms nation', address('Drottninggatan', 11)).
nation('UN','Uplands nation', address('S:Larsgatan', 11)).
nation('Guten','Gotland', address('Ostra Agatan', 13)).
nation('KN','Kalmar nation', address('Svartmangatan', 3)).
nation('GN','Goteborgs nation',address('S:t Larsgatan',7)).
nation('SNerikes','Sodermanlands-Nerikes nation', address('S:t Larsgatan',4)).
% geography(Abbreviation, Geografic_regions).
geography('GH',[ 'Gastrikland', 'Halsingland']).
geography('V-Dala',[ 'Vastmanland', 'Dalarna']).
geography('NN',['Norrbotten', 'Vasterbotten', 'Jamtland', 'Vasternorrland','Gastrikland', 'Halsingland']).
geography('OG',['Ostergotland']).
geography('Stocken',['Stockholm']).
geography('UN',['Uppland', 'Stockholm']).
geography('Guten',[ 'Gotland']).
geography('KN',[ 'Smaland']).
geography('GN',['Goteborg','Bohuslan']).
geography('SNerikes',[ 'Sodermanland', 'Stockholm', 'Narke']).
% members(Abbreviation,Number_of_members
members('GH', 1700).
members('V-Dala', 5500).
members('NN', 8000).
members('OG', 5500).
members('Stocken', 4400).
members('UN', 2000).
members('Guten', 600).
members('KN', 1500).
members('GN', 500).
members('SNerikes', 4500).