#include <iostream>
#include <fstream>
using namespace std;
unsigned long a[3000005];
ifstream f("sdo.in");
ofstream g("sdo.out");
void statord(long ls, long ld, long k)
{
    int i=ls, j=ld,pivot=a[(ls+ld)/2];
    while(i<=j)
    {
               while(a[i]<pivot)
                       i++;
               while(a[j]>pivot)
                       j--;
               if(i<=j)
               {
                       swap(a[i],a[j]);
                       i++;
                       j--;
               }
    }
    for(int q=ls;q<=ld;q++)
        cout<<a[q]<<' ';
    cout<<endl;
    cout<<i<<' '<<j;
    cout<<endl;
    if(ls-ld==1)
    {
        if(k==ls)
            g<<a[ls];
        else g<<a[ld];
    }
    else {
    if(k<=j)
             statord(ls,j,k);
    else  statord(i,ld,k);}
}
int main()
{
    long n,poz=0,k;
    f>>n>>k;
    for(long i=1;i<=n;i++)
            f>>a[i];
    statord(1,n,k);

    return 0;
}