$i=11;s/$|,/,,v$i/,s/^/  /mg,$_="for v$i = 0 to 9
$_
next"while--$i;s/0/1/;s/,,/print /;print