parmcnt=!itemcnt $parms
name_parm1=һ
name_parm2=
name_uniq=Ψһ
name_none=޽
name_many=
n_uniq=Ψһ
n_none=޽
n_many=

!if $thisstep=$empty
 !goto next
!endif

modif=!item 1 of $thisstep
origin=!item 2 of $thisstep
dest=!item 3 of $thisstep
coef=!item 4 to -1 of $thisstep

!if $modif=add
 desc= $coef ķ($origin) ӵ($dest)
 !goto next
!endif

!if $modif=multiply
 desc= $coef Է($dest) 
 !goto next
!endif

!if $modif=exchange
 desc=($origin) ͷ($dest)
 !goto next
!endif

:next
sst=!line $step+1 of $steplist
!if $sst=$empty
 !exit
!endif

modif=!item 1 of $sst
origin=!item 2 of $sst
dest=!item 3 of $sst
coef=!item 4 to -1 of $sst

!if $modif=add
 adesc= $coef ķ($origin) ӵ($dest)
 !exit
!endif

!if $modif=multiply
 adesc= $coef Է($dest)
 !exit
!endif

!if $modif=exchange
 adesc=($origin) ͷ($dest)
 !exit
!endif

