public void UnrankSingletonString()
        {
            string s = "x";
            int    n = s.Length;
            long   r = KevinMath.LongRandom(0, KevinMath.Factorial(n) - 1, new Random());

            int[] pi = RankUnrank.InitIndexArray(n);
            RankUnrank.Unrank(n, r, pi);

            string ps = GetPermString(s, pi);

            Console.WriteLine(string.Format("r:{0} s:{1}  p:{2}", r, s, ps));
        }