modified programA