fork download 
  1. : 2SPACES-Q ( -- ) 2 SPACES ." Q" CR ;
  2. : 4SPACES-Q ( -- ) 4 SPACES ." Q" CR ;
  3. : 6SPACES-Q ( -- ) 6 SPACES ." Q" CR ;
  4. : 8SPACES-Q ( -- ) 8 SPACES ." Q" CR ;
  5.  
  6. 2SPACES-Q
  7. 4SPACES-Q
  8. 6SPACES-Q
  9. 8SPACES-Q
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin 
Standard input is empty
stdout 
  Q
    Q
      Q
        Q
https://ideone.com/OAju9O
language:
Forth (gforth 0.7.3)
created:
11 days 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!