: count-to-n-again ( -- sum )
  0 1 BEGIN
    DUP 6 > IF DROP EXIT THEN
    SWAP OVER + SWAP 1+
  AGAIN
  DROP
;

: sum-while-repeat ( -- sum )
  0 1 BEGIN
    DUP 6 <=
  WHILE
    SWAP OVER + SWAP 1+
  REPEAT
  DROP
;

: while-false-preserves-stack ( -- result )
  5 10 BEGIN
    DUP 0 <
  WHILE
    0 DROP
  REPEAT
  DROP
;

count-to-n-again . CR
sum-while-repeat . CR
while-false-preserves-stack . CR
0 BYE
