ostConstraintedKey :: ConstraintMap -> Name
mostConstraintedKey = fst
                    . minimumBy (comparing (length . snd))
                    . assocs

mostConstraintedKey :: ConstraintMap -> Name
mostConstraintedKey = fst
                    . minimumBy (comparing (length . snd))
                    . assocs
mostConstraintedKey = fst
                    . minimumBy (comparing (length . snd))
                    . assocs