64
rrange
m:
    binary #(num to list)
    length
    power-of-2
    @2
    -
    "/"
    swap
    double
    dec
    ljust
    "\\"
    catenate #(list+list)
    @7
    double
    center
    64
    @2
    /
    times #(list)
    show-line