class TEST4 [G]
inherit
	TEST2
feature
	val: INTEGER
		once ("OBJECT")
			Result := 13
		end
	
end