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