anchor.diff:  ;; 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 ()
  +
  +(progn (princ "An weird way to")
  +       (princ #\newline)
  +       (princ "To split a phrase"))
  +
  +(defun say-hello ()q
     (princ "Please type your name: ")
  -  (let ((name (read-line)))
  +  (let ((name (read-line))) ;; read-line is nice!
       (princ "Nice to meet you, ")
  -    (princ name)))+    (princ name)))
  +
  +;; other examples for princ
  +(princ :foo)
  +(princ 1.2)
  +(princ "object")
  +(princ 2/3)
  +(princ 'symbol)
  
positive.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)
  
negative.code: 
  ;; simple example combining things
  ;; remember: read sucks
  ;; read operator only reads a single token.
  ;; if you type two tokens will break
  (defun say-hello ()
    (print "Please type your name: ")
  