(defun sector-info ()
  (format t "Called sector-info"))

(defun scout ()
  (format t "Called scout"))

(defun leave ()
  (format t "Called leave"))