get "libhdr"

let start() be
$(  let c = rdch()
    if c = endstreamch then finish
    wrch(c)
$) repeat