(defun make-server (&key (connection-path *connection-path*) threaded to-stage (endpoint (format nil "tcp://~a:*" (machine-instance))))
  (format t "Making server to-stage: ~s~%" to-stage)
  (let* ((graph (build-task-graph :to-stage to-stage))
         (machine (task:make-machine graph))
         (channel (make-instance 'server :machine machine)))
    (format t "Starting server channel: ~s ~%" endpoint)
    (yampi:start channel connection-path
                 :threaded threaded
                 :control-endpoint endpoint
                 :broadcast-endpoint endpoint)
    channel))