say -2+sum ([X*] map {1,$_ X*1,$_+1},(2,*²...7e4)) »<=»get