85
187
    8
    base #(num to list)
t2
compress
m:
    "*"
    times #(list)
    5
    rjust
    @0
    show-line