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