%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