fork download 
  1. cr .( c compile x execute o ordinary i immediate )
  2. cr : o .( co ) ." xo " ;
  3. cr : i .( ci ) ." xi " ; immediate
  4. cr : a .( ca ) ." xa " o [ o ] postpone o .( cai ) ." xai " i [ i ] postpone i ;
  5. cr : b .( cb ) ." xb " a [ a ] postpone a ;
  6. cr : c .( cc ) ." xc " b ;
  7. cr c
Success #stdin #stdout #stderr 0.01s 5328KB
comments (?)
stdin 
Standard input is empty
stdout 
c compile x execute o ordinary i immediate 
co 
ci 
ca xo cai xi xi 
cb xa xo xai xi 
cc 
xc xb xa xo xai xi xo
stderr 
redefined i
https://ideone.com/opOFXB
language:
Forth (gforth 0.7.3)
created:
7 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!