#!/usr/bin/emacs --script
(defun f(s)(mapconcat'identity(sort(split-string s""t)'(lambda(a b)(string<(upcase a)(upcase b))))""))(print (f \"СтРоКа\"))