anchor.diff:                                    (set! current elem)
                                     (self current :get)))))
                (compileState (.> compiler :compileState))
  +             (rootScope (.> compiler :rootScope))
                (global (.> compiler :global))
                (logger (.> compiler :log))
                (run true)]
           (while run
             (with (res (list (co/resume exec)))
               (cond
  -              ((! (car res))
  -                (logger/put-error! logger (cadr res))
  -                (set! run false))
  -              ((= (co/status exec) "dead")
  -                (print! (colored 96 (pretty (self (last state) :get))))
  -                (set! run false))
  -              (true
  +              [(! (car res))
  +               (logger/put-error! logger (cadr res))
  +               (set! run false)]
  +              [(= (co/status exec) "dead")
  +               (let* [(lvl (self (last state) :get))]
  +                 (print! (.. "out = " (colored 96 (pretty lvl))))
  +                 (.<! global (lua/escape-var ((.> Scope :add) scope "out" "defined" lvl)
  +                                             compileState)
  +                      lvl))
  +               (set! run false)]
  +              [true
                   (with (states (.> (cadr res) :states))
  -                  (lua/execute-states compileState states global logger))))))))))
  +                  (lua/execute-states compileState states global logger))])))))))
   
   (defun repl (compiler)
     (let* [(scope (.> compiler :rootScope))
  
positive.code: 
        (with (line (io/read "*l"))
          (cond
            ((and (! line) (nil? buffer)) (set! running false))
            ((and line (= (string/char-at line (#s line)) "\\"))
              (push-cdr! buffer (.. (string/sub line 1 (pred (#s line))) "\n")))
            ((and line (> (# buffer) 0) (> (#s line) 0))
              (push-cdr! buffer (.. line "\n")))
            (true
              (with (data (.. (concat buffer) (or line "")))
                (set! buffer '())
  
  
negative.code:                   (.<! scope :isRoot true)
  
                    (with (res (list (pcall exec-string compiler scope data)))
                      (unless (car res) (logger/put-error! logger (cadr res)))))))])))))
  
  (define task
    (struct
  