get "libhdr"

let start() be
$(  let x = table
    13,10,32,32,32,32,108,101,116,32,110,32,61,32,48,
    13,10,32,32,32,32,119,114,105,116,101,115,40,34,103,
    101,116,32,42,34,108,105,98,104,100,114,42,34,42,78,
    42,78,108,101,116,32,115,116,97,114,116,40,41,32,98,
    101,42,78,36,40,32,32,108,101,116,32,120,32,61,32,
    116,97,98,108,101,42,78,32,32,32,32,34,41,13,10,
    13,10,32,32,32,32,119,104,105,108,101,32,120,33,110,
    32,126,61,32,48,32,100,111,13,10,32,32,32,32,36,
    40,32,32,119,114,105,116,101,102,40,34,37,78,44,34,
    44,120,33,110,41,13,10,32,32,32,32,32,32,32,32,
    110,32,58,61,32,110,32,43,32,49,13,10,32,32,32,
    32,32,32,32,32,105,102,32,110,32,114,101,109,32,49,
    53,32,61,32,48,32,116,104,101,110,32,119,114,105,116,
    101,115,40,34,42,78,32,32,32,32,34,41,13,10,32,
    32,32,32,36,41,13,10,32,32,32,32,13,10,32,32,
    32,32,119,114,105,116,101,115,40,34,48,42,78,34,41,
    13,10,32,32,32,32,13,10,32,32,32,32,110,32,58,
    61,32,48,13,10,32,32,32,32,119,104,105,108,101,32,
    120,33,110,32,126,61,32,48,32,100,111,13,10,32,32,
    32,32,36,40,32,32,119,114,99,104,40,120,33,110,41,
    13,10,32,32,32,32,32,32,32,32,110,32,58,61,32,
    110,32,43,32,49,13,10,32,32,32,32,36,41,13,10,
    36,41,13,10,0

    let n = 0
    writes("get *"libhdr*"*N*Nlet start() be*N$(  let x = table*N    ")

    while x!n ~= 0 do
    $(  writef("%N,",x!n)
        n := n + 1
        if n rem 15 = 0 then writes("*N    ")
    $)

    writes("0*N")

    n := 0
    while x!n ~= 0 do
    $(  wrch(x!n)
        n := n + 1
    $)
$)