line-mode
empty-list
swap
    100
    =
        46
        over
        length
        dec
        copies
    f5
    "#"
    catenate #(list+list)
m6
extract-array