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