anchor.diff:  (reify (function? a))
   
   (reify (symbol? a))
  -(reify (gensym a))
   (reify (symbol-name a))
   
   (reify (pair? a))
  
positive.code:   (reify (stdout a b c))
    (reify (stderr a b c))
    (reify (stdin-reader a b c))
    (reify (intern a)))
  
  ;;; Arithmetic
  
  
negative.code:     (raw-apply-with-args args-len
        (lambda ()
          (copy-args args (raw-args-address) 0)
          (raw-apply-jump func args-len))))
  
    (define gensym-counter 0)
    (define (gensym)
      (intern (format "gensym-~D" (set! gensym-counter (1+ gensym-counter))))))
  
  ;;; Character istreams
  
  