10
range1
reverse
m:
    dup2
    "#"
    times #(list)
    swap
    dup
    even
    *
    9
    +
    rjust
    show-line
    times #(list)