$n=11;s//print ,/;s/^/  /gm,s/.*/for v$n = 0 to 9
$&
next/s,s/,/,,v$n/while--$n;s/,,//;s/0/1/;print