$_="for v$v = ".!--$v%s/^/  /gm." to 9
$_
next"for($_="print v".join",v",1..($v=10))x10;print