Wie schreibe ich eine while() Schleife in Gforth

Question

Ich möchte eine while() Schleife in Gforth schreiben. Leider ist the only tutorial online aufgrund fehlender Beispiele nicht nützlich, und Beispiele für gezählte Schleifen (wonach ich nicht suche) erscheinen grundlegend anders.

Was sind einige konkrete Beispiele, wie man so etwas darstellt?

while (x > 3) { print(x); x--; } 

Oder wirklich nur einige konkrete Art und Weise etwas von der Form darzustellen:

while (predicate) { expression(s) } 

Answer 1

Ihr erstes Stück Code übersetzt:

\ Assuming x is on the top of the stack. 
begin dup 3 > while dup . 1- repeat 

\ Or if x is in memory. 
begin x @ 3 > while x ? -1 x +! repeat 

Und die zweite:

begin predicate while expressions repeat