9
range1
m:
    range1
    map-show
    9
    rjust
    show-space
    ( "*9+" )
    group
    unwords
    @6
    inc
    show
    3
    rjust
    show-space
    "="
    show-space
    @4
    "1"
    times #(list)
    show-line