Крохотный метод, который меняет регистр текста.

Метод:

########################################
# меняет регистр на СТРОЧНЫЙ/прописной/Первый символ строчный
# type - upper/lower/first
#####
@change_case[str;type]
^if(def $str && def $type){
	$result[^switch[$type]{
		^case[upper]{^str.upper[]}
		^case[lower]{^str.lower[]}
		^case[first]{^str.match[^^([abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя])(.*?)^$][i]{^if(def $match.1){^match.1.upper[]}^if(def $match.2){^match.2.lower[]}}}
		^case[DEFAULT]{$str}
	}]
	
}
### End @change_case[]

Пример:

$str[о сколько нам открытий чудных...]
^change_case[$str;upper]

^change_case[$str;lower]

^change_case[$str;first]