: loop ( -- ) socket receive -> BYTE-ARRAY ADDR-SPEC [ BYTE-ARRAY parse-message find-answer message->ba ADDR-SPEC socket send ] loop ;
Done