(include "ulex.scm")
(use trace)
(import (prefix ulex ulex:))
(trace-call-sites #t)
;; (trace ulex:receive-message ulex:std-peer-handler ulex:process-db-queries ulex:work-queue-add ulex:call send-message ulex:get-best-server ulex:ping)
(set! *default-error-port* (current-output-port))
(ulex:call *area* "test.db" 'savemsg '("my message" "matt"))
(define *servers* (ulex:get-all-server-pkts *area*))
(define numofrecords (ulex:call *area* "test.db" 'getnum '()))
;; (define bunchofrecords (ulex:call *area* "test.db" 'getsome '()))