anchor.diff:  
   ;; simple example combining things
   ;; remember: read sucks
  -;; read operator only reads a single token. 
  +;; read operator only reads a single token.
   ;; if you type two tokens will break
   (defun say-hello ()
     (print "Please type your name: ")
  
positive.code: ;; but print and prin1 is repl stuff, don't cool for humans
  ;; print strings with quotes and had a print esoteric behavior of newline-content-space
  ;; instead use that, use princ! and read-line
  (defun say-hello ()
    (princ "Please type your name: ")
    (let ((name (read-line)))
      (princ "Nice to meet you, ")
      (princ name)))
negative.code: ;; fundamentals printing
  
  ;; :: print
  ;; print send the arg to sdout with #\newline before the sentence
  ;; and add on the end a white-space too LOL something like that:
  ;; (format t "~% ~s " 'simbol) ;; realy crazy!!!!
  ;; and return the output
  (print 'abacate)
  