Paste: stream put

:c
[ call -> stop ]
[ H{ } clone >n call -> ndrop ]
[ H{ } clone >n call -> ndrop ]
[ listen -> until-quit ]
[ swap >c call -> c> drop ]
[ swap >c call -> c> drop ]
[ [ compose ~quotation~ curry recover ] [ drop ] 2bi -> call ]
[ [ 2keep ] dip -> call ]
[ [ call ] 2dip -> ]
[ swap >c call -> c> drop ]
put-stream-object
http-request
(with-http-request)
duplex-stream=>dispose
dispose-each
output-port=>dispose*
port-flush
(wait-to-write)
drain
(io-error)
unix-error
throw
[
    63 getenv error-thread set-global
    continuation -> error-continuation set-global rethrow
]
( scratchpad )