readsPrec _ (~{toCharList v}:xs) = [ (~{enumName e}~{v}, xs) ]