(defun jason (n)

  (let

    (

      a

      b

    )

 

    (setf a (+ n 1))

    (setf b (+ n 2))

    (+ a b)

  )

)

 

(defun fib (n)

  (cond

    ((= n 0) 0)

    ((= n 1) 1)

    (t (+ (fib (- n 1)) (fib (- n 2))))

  )

)

 

;; This is a comment

 

(defun talk ( sentence )

  (cond

    ((member 'mom sentence) '(tell me more about your family))

    (t '(that is interesting - please tell me more))

  )

)

 

(defun my-length ( alist )

  (cond

    ((null alist) 0)

    (t (+ 1 (my-length (rest alist))))

  )

)

(defun my-length-2 ( alist )

  (cond

    ((null alist) 0)

    ((atom alist) 1)

    (t (+ (my-length-2 (first alist)) (my-length-2 (rest alist))))

  )

)

 

(defun my-reverse ( alist )

  (cond

    ((null alist) nil)

    (t (append (my-reverse (rest alist)) (list (first alist))))

  )

)

 

(defun math-something ( n )

  (let

    ((result 1))

 

    (dotimes (i n result)

      (setf result (* result 2))

    )

  )

)