VARIABLES T P E FIX_VARIABLES SUBTYPE P My SUBTYPE Successor P SUBTYPE Int T