Megatest

(use trace)
(trace-call-sites #t)

(import ulex) ;; (import (prefix ulex ulex:))

(trace
 find-or-setup-captain
 ;; find-or-setup-captain
 get-all-captain-pkts
 setup-as-captain
 get-winning-pkt
 ping
 remove-captain-pkt
 ;; start-server-find-port
 ;; connect-server

  (let ((udata (or udata-in (make-udat))))
    (if (udat-serv-listener udata) ;; TODO - add check that the listener is alive and ready?
	udata
	(let ((res (connect-server udata port)))
	  (or res
	      (begin
		;; (print "Could not connect to " port)
		(if (and (< port 65535)
			 (< tries 5000)) ;; make this number bigger when things are working
		(if (and (< port  65535)
			 (< tries 10000)) ;; make this number bigger when things are working
		    (start-server-find-port udata (+ port 1)(+ tries 1))
		    #f)))))))

(define (connect-server udata port)
  ;; (tcp-listener-socket LISTENER)(socket-name so)
  ;; sockaddr-address, sockaddr-port, sockaddr->string
  (let* ((tlsn (handle-exceptions