(in-package :user)

(defun hello ()
  (write-string "Hello World!"))

(defun mymax (x y)
  (if (> x y) x y))

(defun numItems (alist)
  (if (null alist) 0 (+ 1 (numItems (cdr alist)))))

(defun numAtoms (alist)
  (cond 
      ((null alist)     0)
      ((listp alist)   (+ (numAtoms (car alist))
                          (numAtoms (cdr alist))))
      (t                1)))