lines
m:
        odd
    m1
    {
        dup
        1
        index
        double
        inc
        2dup
        drop
        rrot
        take
        binary #(list to num)
        dec
        2dup
        drop
        rrot
        take
        1
        left-cons
        binary #(list to num)
        2
        range1
            dup
            2
            take-end
            sum
            catenate #(list+elem)
        b5
        64
        times #(eval)
        reverse
            over
            <=
            tuck
                @2
                -
            f2
        m5
        catenate #(elem+list)
        init
        binary #(list to num)
        binary #(num to list)
        reverse
        1
        catenate #(list+elem)
        map-show
        swap
        dup
        length
        push-a
        when
    }
    save-a
    eval
    show-line