#include<bits/stdc++.h>

using namespace std;

int a[1000007],b[1000007],c[1000007];

int find_max(int lll,int rrr,int lenn){

    int maxnn=0;

    int summ=0;

    for(int i=lll;i<=rrr;i++){

        maxnn=max(maxnn,c[i]);

        if(maxnn==lenn+i-lll)//这一段可以经过排序满足题意

            summ++;

    }

    return summ;

}

int divide(int l,int r){

    int num=1;

    int len=r-l+1;

    int ll=1;

    for(int i=l;i<=r;i++){

        c[i-l+1]=a[i]-l+1;//对于这一段进行操作，每一段的值都是l到r之间的值，全部减去l-1

    }

    int minn=0;

    for(int i=1;i<=len;i++){

        if(i==1)

            minn=c[1];

        else

            minn=min(minn,c[i]);

        if(minn==len+1-i){//这一段可以和另一半交换

            if(ll==1&&i==len)

                continue;//不可交换串

            if(ll==1||i==len)

                num=max(2,num);//至少可以分成两串

            else{

                int xx=find_max(ll,i,len-i+1);//边上两串交换，中间串尽可能分割

                num=max(xx+2,num);

            }

            ll=i+1;//下一段的左端点

        }

    }

    return num;

}

int main(){

    int n,k;

    memset(a,0,sizeof(a));

    memset(b,0,sizeof(b));

    memset(c,0,sizeof(c));

    scanf("%d%d",&n,&k);

    int maxn=0;

    int sum=0;

    for(int i=1;i<=n;i++){

        scanf("%d",&a[i]);

        maxn=max(maxn,a[i]);

        if(maxn==i)//如果最大值和i相等，说明从上一个b[i]+1到i之间的串是可以经过排序满足题意的

            b[i]=i,sum++;//如果sum已经达到k了，就无需去交换操作了

    }

    int ans=sum;

    int flag=1;

    if(ans>=k)

        printf("Yes");

    else{

        for(int i=1;i<=n;i++){

            if(b[i]==i){

                int x=divide(flag,i)-1;//看看每一段中间经过交换操作能多出几段

                ans=max(ans,sum+x);

                flag=i+1;//下一段的左端点

            }

        }

        if(ans>=k)

            printf("Yes");

        else

            printf("Poor Simon");

    }

    return 0;

}

//通过对一段l到r的串进行构造和思考，可以发现满足题意都是l到r之间值都为l到r之间的

//一段想要通过交换得到更多段，需要把中间隔成若干尽可能多的段，两端的段交换，中间的分段，可以使段尽可能的多