: ( -- threaded-server ) utf8 "eval-server" >>name 9999 >>insecure [ readln execute-string flush ] >>handler ;