64
range1
m:
    not
    push-a
    catenate #(elem+list)
    pairwise
        sum
    m1
    1
    catenate #(list+elem)
    save-a
        binary #(num to list)
        reverse
        1
        index
        "."
        logical-or
    m6
    unwords
    7
    sub-power-of-2
    center
    show-line