anchor.diff:  (define ->       Dict:->)
   (define <-       Dict:<-)
   
  -(global '->list)
  -(global 'dict)
  -(global '->)
  -(global '<-)
  +(apply make-global *function-lst*)
  
positive.code: ;;; Require nl-tim
  
  (context 'Dict)
  
  (constant '+begin-context+ "<")
  (constant '+end-context+   "!")
  
negative.code:   )
  
  (define (-> dict key)
    "Getter"
    ((dict 1) (->internal-type key)))
  
  (define (<- dict)
    "Setter"
    (letn ((real-dict     (dict 1))
           (keys-vals     (args))
           (n-keys        (/ (length keys-vals)
  