Как перемножить две макропеременные

*(Вопрос) Как перемножить 2 макропеременные.

*(Ответ) Автор: Ray 18.04.2002.
* http://www.spsstools.net.

DATA LIST LIST /a.
BEGIN DATA
1
END DATA.
LIST.

SET MPRINT=no.
DEFINE !mult (!POS=!TOKENS(1) /!POS=!TOKENS(1))
!LET !result=!NULL
!DO !cnt=1 !TO !1
!LET !result=!CONCAT(!result,!BLANK(!2))
!DOEND
COMPUTE res=!LENGTH(!result).
!ENDDEFINE.

SET MPRINT=yes.
!mult 3 4.
EXECUTE.