tclse mcdeclar A .P