begin
conststring(10) fred="abcdefghij"
string(10) a,b

	if fred->a.("def").b start
	printstring("OK a=".a);
	newline
	finish else start
		printstring("fail")
		newline;
		printstring(a);
		newline;
		printstring(b)
		newline
		printstring(fred)
		newline
	finish
endofprogram