#include <stdio.h>

 #include <math.h>

 #include <string.h>

 #include <stdlib.h>

 #include <iostream>

 #include <sstream>

 #include <algorithm>

 #include <string>

 #include <queue>

 #include <map>

 #include <vector>

 using namespace std;

 const int maxn = ;

 const int maxm = 1e4+;

 const int inf = 0x3f3f3f3f;

 const double epx = 1e-;

 typedef long long ll;

 int n,m;

 int w[maxn][maxn];

 int path[maxn][maxn];

 string s[maxn];

 void init()

 {

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

     {

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

         {

             w[i][j]=inf;       //有向图自己到自己要初始化为inf

             path[i][j]=j;

         }

     }

 }

 void Floyd()

 {

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

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

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

         if(w[i][k]!=inf&&w[k][j]!=inf)

         {

             int temp=w[i][k]+w[k][j];

             if(w[i][j]>temp)

             {

                 w[i][j]=temp;

                 path[i][j]=path[i][k];

             }

         }

 }

 void input()

 {

     cin>>n;

     init();

     map<string,int> ma;

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

     {

         cin>>s[i];

         ma[s[i]]=i;        //给每个文件名字编号

     }

     string name1,name2,imp;

     int k;

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

     {

         cin>>name1>>k;      //文件名，k个import

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

         {

             cin>>imp;       //import

             getline(cin,name2);   //读取import后面的字符串 直接读入了一行。。。其他操作也可以

             string temp;

             int j=;

             for(int i=;i<name2.length();i++)  //开始处理字符串 因为把import后面的空格也读进来了，所以从1开始

             {

                 if(name2[i]==',')

                 {

                     temp=name2.substr(j,i-j);    //取子串,substr(pos，n)从pos开始，截取n个字符

                     j=i+;

                     i++;

                     int u=ma[name1],v=ma[temp];

                     w[u][v]=;                    //建单向边

                 }

                 else if(i==name2.length()-)      //最后一个单独处理

                 {

                     temp=name2.substr(j,i-j+);

                     int u=ma[name1],v=ma[temp];

                     w[u][v]=;

                 }

             }

             //cout<<imp<<" "<<name2<<endl;

         }

     }

 }

 void print()

 {

     int mind=inf;

     int sta,en;

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

     {

         if(w[i][i]<mind)

             sta=en=i,mind=w[i][i];       //找最小的环

     }

     if(mind!=inf)

     {

         cout<<s[sta];

         int u=path[sta][en];

         while(u!=en)

         {

             cout<<" "<<s[u];

             u=path[u][en];

         }

         cout<<endl;

     }

     else

         cout<<"SHIP IT"<<endl;

 }

 int main()

 {

     input();

     Floyd();

     print();

 }