note
   description : "simple implementation of an ordered pair of items"
   author : "Mark Howard"
   keywords : "pair,ordered"

class PAIR[G,H]

create
	make, default_create

feature --Initialization

	make, set (a_first : G; a_second : H)
			-- Creation procedure.
		do
			first := a_first
			second := a_second
		end

feature --Access

	first: G		-- First
	second: H		-- Second

feature -- Basic operations

	set_first (a_value: like first)
			-- Set 'first'.
		do
			first := a_value
		end

	set_second (a_value: like second)
			-- Set 'second'.
		do
			second := a_value
		end

end