gistfile1.txt

( stack for nesting quotes )
chain: quote
  create   stack here , 10 allot
  : push   stack dup ++ @ ! ;
  : pop    stack dup @ @ swap -- ;
  : empty? stack dup @ = ;
;chain
chain: parable
  : __: header ; parsing
  : nest   compiler on here \quote.push 0 , 0 , ;
  : unnest \quote.pop \quote.empty? not !compiler ;
  : [ nest ; immediate
  : ] unnest @compiler if 9 , here over 1+ ! 8 over ! 2 + 1 , , ;then 9 , ; immediate
  : def ( a- ) @last &.word over !d->class !d->xt ;
  [ rot if drop .word ;then nip .word ] :if def
  [ [ ] if ] :ifTrue def
  [ [ ] swap if ] :ifFalse def
;chain
with parable
-1 [ 10 . ] [ 20 . ] if
[ 0 [ 10 . ] [ 20 . ] if ] :foo def foo