: read-message ( -- message-as-string )
    readln
    "Content-Length: " "" replace
    parse-number ! <-- The Content-Length
    "{" read-until drop ! drop the '{', it will be prepended later.
    drop ! also drop the read string, it doesn't matter
    ! now the stream contains the actual message without '{'
    1 -
    CHAR: x <string> read-into drop
    >string
    ;