sd=:((+/)@:((10&#.)^:_1))"0
echo each <"0 v-.(sd+])v=:1+i.3000