#include<iostream>

 #include<cstdio>

 #include<cstring>

 #include <cmath>

 #include<stack>

 #include<vector>

 #include<map>

 #include<set>

 #include<queue>

 #include<algorithm>

 using namespace std;

 #define foreach(i,c) for (__typeof(c.begin()) i = c.begin(); i != c.end(); ++i)

 typedef long long LL;

 const int INF = 0x3f3f3f3f;

 const int mod=;

 const int maxn=;

 int d[maxn],f[maxn][maxn],t[maxn];

 int n,en;

 int main(){

     while(scanf("%d%d%*c",&n,&en)!=EOF){

         memset(d,,sizeof(d));

         memset(t,,sizeof(t));

         for(int i=;i<maxn;i++){

             for(int j=;j<maxn;j++){

                 if(i==j) f[i][j]=;

                 else f[i][j]=INF;

             }

         }

         for(int i=;i<n;i++) scanf("%d%*c",&t[i]);

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

             char ch=;

             int j;

             for( j=;ch!='\n';j++) scanf("%d%c",&d[j],&ch);

             for(int l=;l<j;l++){

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

                     int cur=f[d[l]][d[r]];

                     cur=min(cur,(d[r]-d[l])*t[i]);

                     f[d[r]][d[l]]=cur;//往上往下的值都要更新

                     f[d[l]][d[r]]=cur;

                 }

             }

             ch=;

         }

         for(int k=;k<;k++)

          for(int i=;i<;i++)

           for(int j=;j<;j++)

           f[i][j]=min(f[i][j],f[i][k]+f[k][j]+);

         if(f[][en]==INF) puts("IMPOSSIBLE");

         else printf("%d\n",f[][en]);

     }

     return ;

 }