; Length of a list.

; required nmath

(setq length
  (lambda (a)
    (loop len ((a a) (n #0))
      (if (null a)
          n
          (len (cdr a) (plus #1 n))))))
