(use text.tr)

(print (string-tr  "typewriter" "qwertyuiop" "QWERTYUIOP"))
(print (string-tr  "typewriter" "a-z" "A-Z"))