rcent    a n = VDefStack [a] [StackItem . numericField $ n, "PERCENT"]
vP
vPercent    a n = VDefStack [a] [StackItem . numericField $ n, "PERCENT"]
vPercent    a n = VDefStack [a] [StackItem . numericField $ n, "PERCENT"]