//
define ac[10] = 'Tokyo','Osaka','Nagoya','Aomori','Fukuoka';
define av[10] = 'Fukuoka','Osaka';
proc main;
	option 13 +0x02;
	cities = {'Tokyo','Osaka','Nagoya','Aomori','Fukuoka'};
	visited = {'Fukuoka','Osaka'};
	print {'Tokyo','Osaka','Nagoya','Aomori','Fukuoka'}-{'Fukuoka','Osaka'};
	print /c- cities-visited;
	putline('I still need to visit' &
			' the following cities:'
			,'/c','/q',cities - visited);
	say "'I still need to visit' &
			' the following cities:'"
			"cities - visited";
	
	putline('I still need to visit' &
			' the following cities:'
			,'/c',*(*ac-*av));

	w='';
	for each x in *ac-*av do
		w &= ' ' & x.value;
	next;

	putline('I still need to visit' &
			' the following cities:'
			,w);

	print /i cities-visited;
	print /i *(cities-visited);
	print /i 1 'A';
	putline('/m+',123456.7);

	return ERROR;
end proc;
