Подсчёт вхождения букв в строку

let printCountedChars str =
    let countChars = 
        str
        |> Seq.toList
        |> List.filter System.Char.IsLetter
        |> List.countBy (fun chr -> chr)
        |> List.groupBy (fun cnt -> snd cnt)
        |> List.map (fun (cnt, pairs) ->
            cnt, pairs 
                |> List.map (fun pair -> fst pair) 
                |> List.sort 
                |> List.map string 
                |> List.reduce (+))
        |> List.sortByDescending (fun cnt -> fst cnt)
    
    for cnt in countChars do
        printfn "%-20s: %d" (snd cnt) (fst cnt)

let printCountedChars str =
    str
    |> Seq.filter System.Char.IsLetter
    |> Seq.countBy id
    |> Seq.groupBy snd
    |> Seq.sortByDescending fst
    |> Seq.map (fun (cnt, pair) ->
        (pair |> Seq.map fst |> Seq.sort |> System.String.Concat, cnt)
        ||> (sprintf "%-20s: %d") 
        )
 
System.String.Join ("\n",printCountedChars "any many money more" ) |> printfn "%s"