$E[$_]=($d+=$E[$_+1]-$E[$_+7])/6+1for sort{1}0..<>-1;printf@E