'Simple multi-line block'

$:foo
   block
      1
      2
      +
   endb
end_foo;

| Fibonacci using 'case'
| and multi-line stack and block constructor.

$:fib
   'multi-line block'
   block
      %
      'multi-line stack'
      stack
         [ % 1 - @fib & 2 - @fib + ] [ % = ]
         []                          [ 1 <= ]
      ends
      case
   endb
end_fib;

(foo pp)
($foo ^ pp)

(9 @fib pp)