Select Code to Download

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

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

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