Help for this page
#1234567890123456789012 perl -wle "print~~map{1..<>}2..<>"
#12345678901234567890 perl -pe "$.>1&$_>0and$\+=$_}{"