Numbering by n

s="1
2
3";?2.upto(gets[0]){s.gsub! /#$a.+/,['\&',1,2,3]*'
   \&.';$a='.'};$><<s

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top