muSet' :: (Eq a) => [a] -> [([[a]], Double)]
muSet' ls =
  let r = piSet ls
      p = powerset' ls
      n = length ls
  in map (\beta ->
           (beta,
            (sum [ (esoohc n k)  * ( fromIntegral
                    $ (length $ filter
                   (\a -> length a == k && beta -<= [a]) p)) - (fromIntegral k)/(fromIntegral n)
                 | k <- [1 .. (n-1)] ] ) ) ) r
muSet' :: (Eq a) => [a] -> [([[a]], Double)]
muSet' ls =
  let r = piSet ls
      p = powerset' ls
      n = length ls
  in map (\beta ->
           (beta,
            (sum [ (esoohc n k)  * ( fromIntegral
                    $ (length $ filter
                   (\a -> length a == k && beta -<= [a]) p)) - (fromIntegral k)/(fromIntegral n)
                 | k <- [1 .. (n-1)] ] ) ) ) r
muSet' ls =
  let r = piSet ls
      p = powerset' ls
      n = length ls
  in map (\beta ->
           (beta,
            (sum [ (esoohc n k)  * ( fromIntegral
                    $ (length $ filter
                   (\a -> length a == k && beta -<= [a]) p)) - (fromIntegral k)/(fromIntegral n)
                 | k <- [1 .. (n-1)] ] ) ) ) r