line-mode
save-b
    push-a
    lines
    19
    get
    member
m5
f( "\x01\x00+\x01|\x00+|\x01+" )
m:
    "("
    swap
        pop
        push-b
        left-uncons
        nip-b
    m4
    ")"