charcase

_chars_upper = [ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z ]
_chars_lower = [ a b c d e f g h i j k l m n o p q r s t u v w x y z ]

charcase = [
    _str = ""
    loop i (strlen $arg1) [
        cond (>= (indexof $_chars_upper (substr $arg1 $i 1))) [
            _str = (concatword $_str (at $_chars_lower (indexof $_chars_upper (substr $arg1 @i 1))))
        ] (>= (indexof $_chars_lower (substr $arg1 $i 1))) [
            _str = (concatword $_str (at $_chars_upper (indexof $_chars_lower (substr $arg1 @i 1))))
        ] [
            _str = (concatword $_str (substr $arg1 @i 1))
        ]
    ]
    result $_str
]