sub F{$M{$n}//=($%%$n+$%%(($==$%/($%/$n+1|0))+1))*($n-$=)/2+F($=)if$n=pop}$%=<>;print-F($`-/ /)+F($'),$/for<>