Защита успешна!

Ура, лабораторка сдана, хотя, возможно, я ещё дополню и/или починю некоторые вещи.

Дополнительное задание -- поместить в стек столько чисел Фибоначчи, какое число лежит на вершине стека.
Решение:
: dec 1 - ;
: count swap dup rot dup rot + ;
: write mem 8 - ! ;
: read mem 8 - @ ;
: fib inc 1 2 rot dec dec write read 0 > branch0 4 count read branch -12 ;