program kadai
   implicit none
    integer  ::  n,k
    integer,allocatable  ::  a(:)
    integer  ::  i,j
    integer(8)  ::  big,eq
    integer(8)  ::  num1,num2,num
    integer(8)  ::  small
    integer(8)  ::  kari

    read(*,*) n,k
    allocate(a(n))
    read(*,*) a

    num=0
    big=0
    small=0
    kari=0
    eq=0

    do i=1,n-1
        do j=i+1,n
            if (a(i)>a(j)) then
                big=big+1
            end if
            if (a(i)<a(j)) then
                small=small+1
            end if
            if (a(i)==a(j)) then
                eq=eq+1
            end if
        end do
    end do

    if (big+small+eq/=(n*(n-1)/2)) then
        do
        write(*,*) big+small+eq,n*(n-1)/2
        end do
    end if

    !write(*,*) big,small
    big=mod(big,1000000007)
    small=mod(small,1000000007)

    kari=dble(k-1)*dble(k)/2
    kari=mod(kari,1000000007)
    !write(*,*) kari

    num1=dble(kari)*dble(small)
    num1=mod(num1,1000000007)
    kari=mod(kari+k,1000000007)
    num2=dble(kari)*dble(big)
   ! write(*,*) num1,num2
    num2=mod(num2,1000000007)
   ! write(*,*) num2
    num=mod(num1+num2,1000000007)

    write(*,*) num

stop
contains

end program kadai
