#!/bin/sh
tmpfile=$(mktemp); echo "(require 'seq)(defun f(s)(defun c(a)(if(eq(upcase a) ?Ё)(+ ?Е 0.5)(upcase a)))(seq-sort(lambda(a b)(<(c a)(c b)))s))(print (f \"teat\"))" > $tmpfile;emacs --script $tmpfile;rm $tmpfile;