class TEST1 [G -> $TYPE]

feature

	anchor: G

	f: like anchor is
		do
			create Result
		end
	
end