GA that optimizes factory floor
Which topic was chosen how often, how are the priorities distributed etc.
fmap (\xs@(x : _) -> (fst x, fmap snd xs)) $ groupOn fst $ sortOn fst $ filter ((100 /=) . snd) $ mconcat $ snd <$> unP prios