ahoka

(use-modules (srfi srfi-1))

(define (push-number maybenum)
  (lambda (stack)
    (let ([number (string->number maybenum)])
      (when (not number) (raise (cons 'undefined-word maybenum)))
      (cons number stack))))

(define (read-forth dict prog)
  (let loop ([procs '()] [prog prog])