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