процедуры не оптимизированные
у меня демонстрация алгоритма а не демонстрация движка
сейчас дорисую версию 7 и посмотрим