#!/bin/sh
tmpfile=$(mktemp); echo "(defun f(s)(apply'concat(sort(mapcar'string s)(lambda(a b)(string<(upcase a)(upcase b))))))(print (f \"Съёжилсяе\"))" > $tmpfile;emacs --script $tmpfile;rm $tmpfile;