Data.Diverse.CaseFunc
data
CaseFunc
k r xs
data
CaseFunc'
k xs