11
range1
dup
reverse
catenate #(list+list)
m:
    8
    smallest
    range1
    map-show
    8
    rjust
    right-uncons
    7
    copies
    @3
    reverse
    new-line