lines
    empty-list
m1
m:
    12
    rjust
    space
    counter
    32
    over
    -
    smallest
    dup
    double
    ^
    binary #(num to list)
    reverse
    s( "]\x01." "\x02" )
    empty-list
    "|"
    dup
    "-"
    7
    times #(list)
    catenate #(list+list)
    "+"
    catenate #(list+list)
    @9
    16
    =
        tail
        reverse
        ( " winner!" )
        catenate #(list+list)
    f4
    3
    make-array
        8
        rjust
    m2
    select
    show-line
    tail