ProgramPatterSetter