 script for easy class generation (learn perl)
 optimize group InitChange/ExitChange
