read-nums
extract-array
    2dup
    +
    10
    %
b4
100
times #(eval)
100
make-array
leave-top
unwords