(define pop!
       (lambda (ra-stack)
	 (if (empty-ra-stack? ra-stack) ;; 1
            (error "POP!: attempted pop from an empty stack")
            (____________))))