Можно бесконечно улучшать, например минимальными телодвижениями увеличить стек до 30 разрядов и сделать период обновления 48 минут, можно уменьшить время вычисления после каждого импульса обновления(тактового для стека) до одного цикла на разряд стека, сейчас вычисляет при 24 разрядном стеке около 5 секунд! Увеличив стек до 60 разрядов(2 макроса стека), уменьшить период обновления до 24 минут, 120 разрядов - 12 минут, 240 разрядов - 6 минут, 480 разрядов - 3 минуты и т. д. и т. п.