\ макрос для идентификации префиксов, (макрос - чтобы выход был при вложенном ident )
M: ident \ A U --
2OVER COMPARE 0<> IF NOTFOUND EXIT THEN 2DROP ;


\ "xt слово" - дать адрес кода слова

: NOTFOUND ( A U --)
S" xt" ident
' STATE @ IF LIT, THEN ;

\ "nrep слово" - исполнить слово n раз, n взять со стека параметров

: t-rep { a } 0 DO a EXECUTE LOOP ;

: NOTFOUND S" nrep" ident
' STATE @ IF LIT, POSTPONE t-rep ELSE t-rep THEN ;

\ EOF

xt DUP . CR

: s1 xt DUP ; s1 . CR CR

1 2 nrep DUP . . . CR CR

: dup2 2 nrep DUP ;

3 dup2 . . . CR CR


: (fib) TUCK + ;

: fib ( N -- fibN)  >R 0 1 R>  nrep (fib)  NIP ;

16 fib .

лог

5579564
5579564

1 1 1

3 3 3

1597
Ok