print Y( sub{my$rec=shift; sub{(shift()//return 0) + &$rec }})->(1 .. 100);;
5050