anchor.diff:                          (string (funcall f ch)))
                       chars)))
         (declare (type list translated-char-strings))
  -      (the cl:simple-base-string 
  +      (the cl:simple-string 
           (apply #'concatenate 'string translated-char-strings)))))
   
   (defun translate-1-1 (f str)
  
positive.code:                       (string (funcall f ch)))
                    chars)))
      (declare (type list translated-char-strings))
      (the cl:simple-base-string 
        (apply #'concatenate 'string translated-char-strings))))
  
  (defun lt-2 (s1 s2)
    (declare (type cl:simple-base-string s1 s2))
    (if (string< s1 s2) t nil))
  
  (defun lt (s1s2)
    (if (string< (the cl:simple-base-string (car s1s2))
                 (the cl:simple-base-string (cdr s1s2)))
     t nil))
  
  (defun leq-2 (s1 s2)
    (declare (type cl:simple-base-string s1 s2))
    (if (string<= s1 s2) t nil))
  
  (defun leq (s1s2)
    (if (string<= (the cl:simple-base-string (car s1s2))
                  (the cl:simple-base-string (cdr s1s2)))
     t nil))
  
  (defun <-2 (s1 s2)
    (declare (type cl:simple-base-string s1 s2))
    (if (string< s1 s2) t nil))
  
  (define-compiler-macro <-2 (x y)
    `(string< (the cl:simple-base-string ,x) (the cl:simple-base-string ,y)))
  
  (defun |!<| (s1s2)
    (if (string< (the cl:simple-base-string (car s1s2))
                 (the cl:simple-base-string (cdr s1s2)))
     t nil))
  
  (defun <=-2 (s1 s2)
    (declare (type cl:simple-base-string s1 s2))
    (if (string<= s1 s2) t nil))
  
  (define-compiler-macro <=-2 (x y)
    `(string<= (the cl:simple-base-string ,x) (the cl:simple-base-string ,y)))
  
  (defun |!<=| (s1s2)
    (if (string<= (the cl:simple-base-string (car s1s2))
                  (the cl:simple-base-string (cdr s1s2)))
     t nil))
  
  (define-compiler-macro >-2 (x y)
    `(let ((x ,x) (y ,y))
       (string< (the cl:simple-base-string y) (the cl:simple-base-string x))))
  
  (define-compiler-macro >=-2 (x y)
    `(let ((x ,x) (y ,y))
       (string<= (the cl:simple-base-string y) (the cl:simple-base-string x))))
  
  (defparameter newline
    (format nil "~c" #\newline))
  
  (defun toScreen (x)
    (declare (type cl:simple-base-string x))
    (common-lisp::format t "~A" x))
  
  (defun writeLine (x)
    (declare (type cl:simple-base-string x))
    (common-lisp::format t "~A" x)
    (common-lisp::format t "~%"))
  
  
negative.code:   (every p s))
  
  (defun sub-2 (s n)
    (declare (type cl:simple-string s) (type cl:fixnum n))
    (elt s n))
  
  (defun sub (sn)
    (declare (cons sn))
    (elt (the cl:simple-string (car sn)) (the cl:fixnum (cdr sn))))
  
  (defun substring-3 (s start end)
    (declare (type cl:simple-string s) (type cl:fixnum start end))
    (the cl:simple-string (subseq s start end)))
  
  (define-compiler-macro substring-3 (s start end)
    `(subseq
       (the cl:simple-string ,s) (the cl:fixnum ,start) (the cl:fixnum ,end)))
  
  (defun substring (sse)
    (the cl:simple-string (subseq (the cl:simple-string (svref sse 0))
                                       (the cl:fixnum (svref sse 1))
                                       (the cl:fixnum (svref sse 2)))))
  
  (defun concatList (x)
    (the cl:simple-string 
      (apply #'concatenate 'string x)))
  
  (defun translate (f)
  