createAccessors self instVarNames do: [ :var | self compile: var, String cr, ' ^ ', var. self compile: var, ': aValue', String cr, ' ^', var, ' := aValue'. ]
https://orcid.org/0000-0002-5396-487X