anchor.diff:    )
   
   (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)
  
positive.code: ;;; Require nl-tim
  
  (context 'Dict)
  
  (constant '+begin-context+ "<")
  (constant '+end-context+   "!")
  
negative.code: ;;;
  
  (define (->list dict)
    "Convert to association list"
    ;; (println "[DEBUG] ->list >> " dict)
    (dict->list (first (rest dict))))
  
  