В первом варианте используется только стек данных, но в сравнении с задействованием цикла DO .... LOOP
этот вариант гораздо медленнее, к примеру, в рамках проверки на gForth (под SPF4 не факт, что будет существенное отличие по времени выполнения)

А зачем же каждый фрагмент кода делать максимально быстрым? Меньше манипуляций со стеком - меньше отладки и возможностей для ошибок.

В принципе можно бы и посложнее/практичнее примеоы делать...

Основу наполнения каких то примеров можно рассмотреть на площадке http://rosettacode.org
как отправную точку.

P.S. Можно, конечно, и формировать "глоссарий" на примеры, но это, в целом, не формат для этого топика.

Для RosettaCode уже была тема

http://fforum.winglion.ru/viewtopic.php?f=2&t=3263