sub f{$_++>9?"print v".join",v",1..10:"for v$_ = %d to 9
@_  ".f("@_  ")."
@{_}next"}printf f,1