IN: scratchpad : parse-message ( -- jsons )
  readln >lower
  "content-length:" ?head
  [ "bad content length" throw ] unless
  [ blank? ] trim
  parse-number
  read json> ;
IN: scratchpad parse-message
Content-length: 2
{}

--- Data stack:
H{ }