fork download
copy 
  1. : s, ( au-) here swap dup allot move ;
  2. : no ( -au) s" i am not a nitwit. " ;
  3. here  no drop 5 s,  no 9 /string s,
  4. here over - 2Constant yes ( -au)
  5. : nitwit ( n-) 1 and if yes else no then type ;
  6. : test ( n-) cr dup . nitwit ;
  7. 3 test 4 test
  8.  
Success #stdin #stdout #stderr 0.01s 5320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
3 i am a nitwit. 
4 i am not a nitwit.
stderr
copy 
redefined S, with s,
https://ideone.com/VyQTMd
language:
Forth (gforth 0.7.3)
created:
1 day 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!