: TEST    ." test" CR ;

: TESTS
    0 ?DO
        POSTPONE TEST
    LOOP
; IMMEDIATE

: FOO    [ 10 ] TESTS ;

FOO CR
SEE FOO

BYE