(defun sdcount (arr)
  (let ((num (make-array 100 :initial-element 0)))
    (dotimes (i (array-dimension arr 0))
      (setf (aref num (aref arr i 2)) (incf (aref num (aref arr i 2)))))
    (dotimes (i 100)
      (if (not (= 0 (aref num i)))
	  (format t "~A,~A~%" i (aref num i))))))