DEFINE('XADD(X)','XADD.INIT')                    :(XADD.END)
XADD.INIT ADDVALUE = CALL_SOME_EXPENSIVE_OPERATION()
          DEFINE('XADD(X)','XADD')
XADD      XADD = X + ADDVALUE                              :(RETURN)
XADD.END