VARIABLES T P

SUBTYPE T Int
SUBTYPE T P