minimize Total_Cost:
	120*Trans['Amsterdam','Leipzig'] + 41*Trans['Amsterdam','Liege'] + 
	59.5*Trans['Amsterdam','Tilburg'] + 130*Trans['Amsterdam','Nancy'] + 
	120*Trans['The Hague','Leipzig'] + 122*Trans['The Hague','Liege'] + 
	42*Trans['The Hague','Tilburg'] + 90*Trans['The Hague','Nancy'] + 
	61*Trans['Antwerp','Leipzig'] + 100*Trans['Antwerp','Liege'] + 
	110*Trans['Antwerp','Tilburg'] + 40*Trans['Antwerp','Nancy'];

s.t. Supply['Amsterdam']:
	Trans['Amsterdam','Leipzig'] + Trans['Amsterdam','Liege'] + 
	Trans['Amsterdam','Tilburg'] + Trans['Amsterdam','Nancy'] <= 500;

s.t. Supply['The Hague']:
	Trans['The Hague','Leipzig'] + Trans['The Hague','Liege'] + 
	Trans['The Hague','Tilburg'] + Trans['The Hague','Nancy'] <= 800;

s.t. Supply['Antwerp']:
	Trans['Antwerp','Leipzig'] + Trans['Antwerp','Liege'] + 
	Trans['Antwerp','Tilburg'] + Trans['Antwerp','Nancy'] <= 700;

s.t. Demand['Leipzig']:
	Trans['Amsterdam','Leipzig'] + Trans['The Hague','Leipzig'] + 
	Trans['Antwerp','Leipzig'] >= 400;

s.t. Demand['Liege']:
	Trans['Amsterdam','Liege'] + Trans['The Hague','Liege'] + 
	Trans['Antwerp','Liege'] >= 200;

s.t. Demand['Tilburg']:
	Trans['Amsterdam','Tilburg'] + Trans['The Hague','Tilburg'] + 
	Trans['Antwerp','Tilburg'] >= 500;

s.t. Demand['Nancy']:
	Trans['Amsterdam','Nancy'] + Trans['The Hague','Nancy'] + 
	Trans['Antwerp','Nancy'] >= 900;