100
range1
m:
    digits
    20132222
    5
    base #(num to list)
    tail
    select
    sum
    @2
    tuck
    get
    get
    show-line