#!/bin/sh
tmpfile=$(mktemp); 
echo "(defun f(s)(sort(split-string s \"\" t)'(lambda(a b)(string<(upcase a)(upcase b)))))(print (f \"СтРоКа\"))" > $tmpfile;
emacs --script $tmpfile;
rm $tmpfile;