sub F{
	my($n,$m)=@_;
	$M{$n}//=$n&&(F($m=$%/($%/$n+1|0)|0)+($%%$n+$%%($m+1))*($n-$m)/2)
}
$%=<>;
print-F($`-/ /)+F($'),$/for<>