Prim = proc ()

Sigil = proc (word: string)

Word = object
  case kind*: WordKind
  of primWord:
    prim*: Prim
  of userWord:
    code*: seq[string]
  

WordKind = enum
  primWord, userWord

alias: Table[string, string]

atLine = 0

buf_to: string

buffer: seq[string]

code: seq[string]

loop: seq[string]

scratch: string

sigil: Table[char, Sigil]

stack: seq[float]

variables: Table[string, float]

words: Table[string, Word]

help_message = """Usage: ripen [options...] [files...]

Options:
        -h, --help:             show this help message and exit
        -v, --version:          show version string and exit
        -t, --test:             run built-in tests and exit
        -i, --interactive:      enter interactive mode after files
        -q, --quiet:            suppress banner, prompt, ok message
"""

version_string = "Ripen Forth 3.0 beta (2023-07-19)"

proc `$`(w: Word): string {....raises: [], tags: [].}

proc exec(word: Word) {....raises: [Exception], tags: [RootEffect].}

proc included(filename: string) {....raises: [IOError, Exception, KeyError,
    ValueError], tags: [ReadIOEffect, RootEffect].}

proc interpret(code_block: seq[string]) {.
    ...raises: [Exception, KeyError, ValueError], tags: [RootEffect].}

template primitive(p: Prim): Word