foreach m\ n [read stdin] {puts [expr ($m<$n)-(3*$m+1-$n)*$n*~$n/6]}