7
rrange
m:
    power-of-2
    save-a
    range1
    2
    step
    m:
        "/"
        swap
        ljust
        "\\"
        catenate #(list+list)
        push-a
        double
        center
        64
        push-a
        /
        times #(list)
        show-line