(define (right-rotate r)
(if (= (car r) 0)
R
(right-rotate (cdr r))))