#!/bin/bash
tmpfile=$(mktemp); 
echo "(defun f(s)(sort (split-string s \"\" t)'(lambda (a b)(string-collate-lessp a b \"ru_RU.UTF-8\" t))))(print (f \"Строка\"))" > $tmpfile;
emacs --script $tmpfile;
rm $tmpfile;