anchor.diff:  (defun kill-socket-s ()
     (usocket:socket-close *socket-s*))
   
  -;; (defmacro mach-socket-r (n)
  -;;   "*SOCKET-N* :port 9000 + N"
  -;;   `(set (intern (format nil "*SOCKET-~A*" ,n))
  -;;        (usocket:socket-connect nil nil :protocol :datagram :element-type '(unsigned-byte 8) :local-host "127.0.0.1" :local-port (+ 9000 ,n))))
  -
  -;; (defun kill-socket-r (n)
  -;;   (usocket:socket-close (eval (intern (format nil "*SOCKET-~A*" n)))))
  -
   (defun mach-socket-r ()
     (defparameter *socket-r*
       (usocket:socket-connect nil nil :protocol :datagram :element-type '(unsigned-byte 8) :local-host "127.0.0.1"
  
positive.code: (defun mach-socket ()
    (progn (mach-socket-s)
           (mach-socket-r)))
  (defun kill-socket ()
    (progn (kill-socket-s)
           (kill-socket-r)))
  
negative.code:      (progn
         (usocket:socket-send *SOCKET-S* buffer length)
         (format t "->"))))
  
  (defmacro each/ (pos path)
    "osc path helper"
  