say -2+sum ([X*] map {1,my$a=2**2**$_ X*1,$a+1},0..4) »<=»get