******** fig3.44 **********

	void
	push( element_type x, STACK S )
	{
		node_ptr tmp_cell;

		tmp_cell = (node_ptr) malloc( sizeof (struct node) );
		if( tmp_cell == NULL )
			fatal_error("Out of space!!!");
		else
		{
			tmp_cell->element = x;
			tmp_cell->next = S->next;
			S->next = tmp_cell;
		}
	}