class DD [G]

create

	put

feature

	item: G

	put (v: G)
		do
			item := v
		end

end