;   simple example of function definition to calculate correlation
 
(defun corr (a b)
  (/(/ (sum (* (- a (mean a)) (- b (mean b)))) (* (standard-deviation a)
     (standard-deviation b)))(- (length a) 1))
     )