3 lines
53 B

(for [i]:10 (> @i 0) [i](- @i 1)
[j](+ @i @j)
)