(defun my-length (lst)
  (length lst))

;; C-c C-k
(assert (equal (my-length '(a b c d)) 4))