******** fig3.53 **********

	element_type
	pop( STACK S )
	{
		if( is_empty( S ) )
			error("Empty stack");
		else
			return S->stack_array[ S->top_of_stack-- ];
	}