: serve-string ( -- )
    10,000,000 100,000,000 over <range> random
    CHAR: a CHAR: z [a,b) random [ 2dup 2array . flush ] with-global
    <string> write flush ;

: <string-server> ( port -- server )
    utf8 <threaded-server>
        swap >>insecure
        "string.server" >>name
        [ serve-string ] >>handler ;

: string-server-main ( -- )
    command-line get [ 1239 ] [ first string>number ] if-empty
    <string-server> start-server wait-for-server ;


string-server-main


100 iota >array [ drop "127.0.0.1" 1239 <inet4> binary [ contents [ all-eq? ] [ length ] bi 2array ] with-client ] parallel-map