Data.Diverse.Case

class Case c xs r