perl -le "print 1_000_000 * 1_000_001 / 2"