fork download 
  1.  
  2. : TEST    ." test" CR ;
  3.  
  4. : TESTS
  5.     0 ?DO
  6.         POSTPONE TEST
  7.     LOOP
  8. ; IMMEDIATE
  9.  
  10. : FOO    [ 10 ] TESTS ;
  11.  
  12. FOO CR
  13. SEE FOO
  14.  
  15. BYE
Success #stdin #stdout 0s 22520KB
comments (?)
stdin 
Standard input is empty
stdout 
test
test
test
test
test
test
test
test
test
test


: FOO  
  TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST ;
https://ideone.com/qtfSmT
language:
Forth (gforth 0.7.3)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!