list-stable-sort-descending.fs

        [<CompiledName("SortByDescending")>]
        let sortByDescending f xs =
            match xs with 
            | [] | [_] -> xs
            | _ -> 
                let compareByDescending x y = compare (f y) (f x)
                sortWith compareByDescending xs

        [<CompiledName("SortDescending")>]
        let sortDescending xs =
            match xs with 
            | [] | [_] -> xs
            | _ -> 
                let compareDescending x y = compare y x
                sortWith compareDescending xs