(define push!
      (lambda (ra-stack item)
	(let ((new-node (make-node item (node-rest ra-stack))))
	  (node-set-rest! ra-stack new-node)
	  (node-set-element! ra-stack (+ (height ra-stack) 1))
	  ra-stack)))