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