(asdf:operate 'asdf:load-op 'c-struct)
(in-package :c-struct)
(demo-udp)