(define (rotate2-right s)
  (let* ((len (string-length s))
         (first2 (substring s 0 2))
         (rest   (substring s 2 len)))
    (string-append rest first2)))