RosettaCodeData/Task/String-case/Scheme/string-case-1.ss

(define s "alphaBETA")
(list->string (map char-upcase (string->list s)))
(list->string (map char-downcase (string->list s)))