;;; ---------------------------------------------------------------------------
(defun power-law-vertex-degree-distribution (kappa k)
;;; ---------------------------------------------------------------------------
(defun power-law-vertex-degree-distribution (kappa k)