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