#1234567890123456789012 perl -wle "print~~map{1..<>}2..<>"