open System
open System.Globalization
let s = "апХчиЕмаЁ"
List.sortWith(fun a b->String.Compare(a,b,true,CultureInfo.InvariantCulture))((List.ofSeq s)|>List.map(fun x->Convert.ToString(x)))|>String.Concat|>printfn "%s"
b3BlbiBTeXN0ZW0Kb3BlbiBTeXN0ZW0uR2xvYmFsaXphdGlvbgoKbGV0IHMgPSAi0LDQv9Cl0YfQuNCV0LzQsNCBIgpMaXN0LnNvcnRXaXRoKGZ1biBhIGItPlN0cmluZy5Db21wYXJlKGEsYix0cnVlLEN1bHR1cmVJbmZvLkludmFyaWFudEN1bHR1cmUpKSgoTGlzdC5vZlNlcSBzKXw+TGlzdC5tYXAoZnVuIHgtPkNvbnZlcnQuVG9TdHJpbmcoeCkpKXw+U3RyaW5nLkNvbmNhdHw+cHJpbnRmbiAiJXMi