SAY "Dear Sebastian,"
SAY "How many ministers do you want to have in your government (keep in mind, you as well have to pay them)?"

PULL rank

DO i=1 to rank
	SAY "Tell us which kind of responsibility your "i".minister should have."
 	PARSE PULL reply 
 		minister.i = .federalGovernment~New;
		minister.i~Minister = reply
	
	SAY "Tell us the name of "minister.i~Minister" (minister)."
	PARSE PULL reply
		minister.i~Name = reply

	SAY "Tell us how much payment (in euros) would you give such a "minister.i~Minister" (minister)."
	PARSE PULL salary
		minister.i~payment = salary

END


cost = 0
DO i=1 to rank

SAY
SAY minister.i~Minister
SAY minister.i~Name
SAY minister.i~payment
cost = cost + minister.i~payment

END

SAY
SAY "Sebastian, your government costs "cost" euros, I hope that is not too much so that you yourself still have some money left for you:D."


::CLASS federalGovernment
::ATTRIBUTE Minister
::ATTRIBUTE Name
::ATTRIBUTE Payment