==================
Excerpt from a real rosetta program
==================

INCLUDE ran4.seq
( This is some text )

100      CONSTANT #drawers
#drawers CONSTANT #players

CREATE drawers  #drawers CELLS ALLOT                    \ index 0..#drawers-1

: drawer[]  ( n -- addr )   \ return address of drawer n
    CELLS drawers +
    ( comment in definition )
;

---

(source_file
  (builtin
    (core))
  (word)
  (comment)
  (number)
  (builtin
    (core))
  (word)
  (word)
  (builtin
    (core))
  (word)
  (builtin
    (core))
  (word)
  (word)
  (builtin
    (core))
  (builtin
    (core))
  (comment)
  (word_definition
    (start_definition)
    (word)
    (comment)
    (comment)
    (builtin
      (core))
    (word)
    (builtin
      (operator))
    (comment)
    (end_definition)))
