x=pi;
string str1$="this is a string var";
type -gbef %Yjunk.txt;
	%Y=;
	x=;
	str1$=;
	type "pi = $(x) and str1 is %(str1$)";
	type "dump wks";
	wks.dc.=;
	type "get tree";
	getresults tr:=tr iw:=<active>;
	tr.=;
type -ge;