Add `annotateSet` function

[milesfrain]

Proposing a function to convert a Set to a Map:

annotateSet :: forall a b. (a -> b) -> Set a -> Map a b
annotateSet f = mapWithIndex (\k _ -> f k) <<< toMap

Previously discussed in #31