read-nums
extract-array
100
range
    pop
    2dup
    +
    10
    %
m5
unwords
leave-top