;;;; Section 1.1 ;;;;
;Adam Nelson
;Chet Tobrey

(defun is (x) x)

(egs :1.1

     (eg '(append '(Pat Kim) '(Robin Sandy))
        :of "the first append in 1-1"
        :out '(Pat Kim Robin Sandy))
     (eg '(is '(Pat Kim))
         :of "pat kim"
         :out '(Pat Kim))
     (eg '(is 'John)
         :of "John!"
         :out 'John)
     (eg '(is '(John Q Public))
         :of "John's full name"
         :out '(John Q Public))
     (eg '2
         :of "showing a number"
         :out 2)
     (eg  2
         :of "another number"
         :out 2)
     (eg '(+ 2 2)
         :of "adding two numbers"
         :out 4)
    ; (eg '(John)
    ;    :of "showing an error"
    ;   :out "ERROR")
    ; (eg '(John Q Public)
    ;  :of "showing another error"))

      (eg '(append '(Pat Kim) (list '(John Q Public) 'Sandy))
          :of "Appending Pat Kim with the list John Q Public and Sandy"
          :out '(PAT KIM (JOHN Q PUBLIC) SANDY)
          )

      (eg '(length (append '(Pat Kim) (list '(John Q Public) 'Sandy)))
          :of "Determining the length of the appending string"
          :out 4))