procedure.o suppr