1 GETDEF  OBJECT(data-value)
2? ATTRIBUTE(data-value)
3 RESOURCE(data-value)
4? COUNT(data-ref)
5! REPLACE
5?
5 ADD
6 RESULT(cpsm-token)  THREAD(cpsm-token)  RESPONSE(data-ref)  REASON(data-ref)