(receive (in-a out-a in-b out-b) (unix-pair)
  (write-json '((hello . "world")) out-a)
  (print (read-json in-b consume-trailing-whitespace: #f)))