#вычисление N!
#состояние стека AS: Callback, N
mov 1 BS
loop:
ifnot AS end
CLONE AS AS
MUL\BS BS AS # умножеить и поместить результат в BS
DEC AS
goto loop
end:
POP AS
MOV AS CS #переместить callback
MOV BS AS #состояние стека: N!
goto CS