anchor.diff:  ;;; Require nl-tim
   
   (context 'Dict)
  +
  +(define *function-lst*
  +  (list '<- '-> 'dict '->list))
   
   (constant '+begin-context+ "<")
   (constant '+end-context+   "!")
  
positive.code: ;;;
  
  (define (->list dict)
    ;; (println "[DEBUG] ->list >> " dict)
    (dict->list (first (rest dict))))
  
  
negative.code: (define ->       Dict:->)
  (define <-       Dict:<-)
  
  (apply make-global *function-lst*)
  