RosettaCodeData/Task/Reverse-a-string/Scheme/reverse-a-string.scm

(define (string-reverse s)
  (list->string (reverse (string->list s))))