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