(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)))