class GRAND_PARENT [G]

feature
	
	a: like {TEST1 [like {like Current}.b]}.out
	
	b: like {G}.out
end