(defun describe-paths (location edges) (apply #'append (mapcar #'describe-path (cdr (assoc location edges)))))