:
y/123456789/23456789a/
s/^/  /mg
s/$\|,/,,v1/
s/.*/for v1 = 0 to b\n&\nnext/
T
s/a/10/g
T
y/b/9/
s/0/1/
s/,,/print /