(deftest jimch2 ()
  (check
    (= 14 (+ (- 5 1) (+ 3 7))) ;added to lisp.lisp
    (= 7 (if (listp 1) (+ 1 2) (+ 3 4)))
    (= 3 (/ (- 7 1) (- 4 2)))
    (eql t (listp '(my 3 "Sons")))
    (= 4 (4TH '(1 2 3 4)))
    (= 9 (greater 3 9))
    (= 3 (counta '(a b c d a a) 0))
   )
)

(defun 4th (lst)
  (car (cdr (cdr (cdr lst)))))

(defun greater (arg1 arg2)
  (if (> arg1 arg2) arg1 arg2))

(defun counta (lst count)
  (if (null lst)
          count
	  (if (eql (car lst) 'a)
	      (counta (cdr lst) (+ count 1))
	      (counta (cdr lst) count))))