#1234567890123456789012345678901234567890
perl -wle "$a=<>;($x=<>)>0?$_+=$x:0 while$a--;print

##</code><code>##

          #123456789012345678901234
perl -wle "print 0+map{1..<>}2..<>"

##</code><code>##

          #123456789012345678901234
perl -wle "<>;print 0+map{1..<>}<>"