program prob2
    implicit none
    integer :: N,L,ans
    read(*,*) N,L
    ans = (2*L+N-1)*N/2

    if(L > 0) then
        ans = ans - L
    else if(L+N-1 < 0) then
        ans = ans - (L+N-1)
    else
        ans = ans
    end if
    write(*,*) ans

    stop
contains
end program prob2