Ideas.Common.Strategy.Choice
class Choice a
data Menu k a
(|->)
doneMenu
eqMenuBy
elems
bests
bestsOrdered
isEmpty
hasDone
getByIndex
cut
onMenu
onMenuWithIndex