$_="print v".join",v",1..10;$n=11;s/^/  /gm,$_="for v$n = 0 to 9
$_
next"while--$n;s/0/1/;print