#include <stdio.h>
#include <string.h>

#define MAX_SLOVNIK 8192     /* pocet pismen slovniku */
#define MAX_ROZMER  80       /* maximalni rozmer osmismerky */
#define UNDEFINED   (-1)     /* konstanta pro nedefinovanou hodnotu fce g */
#define max(x,y) ((x)>(y)?(x):(y))
#define min(x,y) ((x)<(y)?(x):(y))

int g[MAX_SLOVNIK][256]; /* prechodova fce g: stavy $\times$ abeceda $\rightarrow$ stavy */
int o[MAX_SLOVNIK];      /* maximalni delka prijmuteho slova v tomto stavu */
int f[MAX_SLOVNIK];      /* zpetna fce f: stavy $\rightarrow$ stavy */
int osmismerka[MAX_ROZMER][MAX_ROZMER];
int skrt[MAX_ROZMER][MAX_ROZMER];
int m,n;

void vytvor_automat(char *jmeno)
{
    FILE *fin;
    char word[80],p;
    int i,j,r,s,t,q;
    int queue[MAX_SLOVNIK];
    int qtail,qhead;

    fin=fopen(jmeno,"r");
    /* zalozime inicialni vrchol 0, fce g je nedifinovana pro kazde pismeno*/
    q=1;o[0]=0;
    for (i=0;i<256;i++) g[0][i]=UNDEFINED;
    /* kazde prectene slovo vlozime do stromu automatu normalne i zrcadlove */
    while (fscanf(fin,"%s",word)==1)
      for (r=0;r<2;r++)  /* kvuli zrcadleni ... */
      {
          /* nejdrive jdeme ve stromu tak dlouho dokud existuje cesta */
          s=0;
          for(j=0;j<strlen(word);j++)
                  if (g[s][word[j]]!=UNDEFINED) s=g[s][word[j]]; else break;
          /* a pak pripojime vetev z novych stavu pro zbytek vkladaneho slova */
          while (j<strlen(word))
          {
               g[s][word[j]]=q;
               for (i=0;i<256;i++) g[q][i]=UNDEFINED;
               o[q]=0;
               s=q++;j++;
          }
          /* pro stav odpovidajici konci vkladaneho slova si pamatujme v o, ze
             zde konci slovo delky vkladaneho slova a pak prezrcadli*/
          o[s]=strlen(word);
          for (j=0;j<strlen(word)/2;j++)
          {p=word[j];word[j]=word[strlen(word)-j-1];word[strlen(word)-j-1]=p;}
      }
    /* a dodefinujme korektne g pro inicialni stav 0 */
    for (i=0;i<256;i++) if (g[0][i]==UNDEFINED) g[0][i]=0;
    /* vytvorme frontu stavu a definujme f(0) */
    qtail=0;qhead=0;
    f[0]=0;o[0]=0;
    /* pro inicialni stav umistme potomky do fronty a fce f pro ne bude 0 */
    for (i=0;i<256;i++)
       if (g[0][i]>0)
         {
             f[g[0][i]]=0;
             queue[qtail++]=g[0][i];
         }
     /* vsem stavum ve fronte zpracuj jejich potomky a definuj jim o a f */
     while (qhead<qtail)
       {
          r=queue[qhead++];
          for (i=0;i<256;i++)
            if (g[r][i]!=UNDEFINED)
              {
                 s=g[r][i];
                 t=f[r];
                 while (g[t][i]==UNDEFINED) t=f[t];
                 f[s]=g[t][i];
                 o[s]=max(o[s],o[f[s]]);
                 queue[qtail++]=s;
              }
       }
     fclose(fin);
}

void vyhledej( int x, int y, int dx, int dy, int delka)
{
   int mez,i,s=0;
   int intervaly[MAX_ROZMER];

   /* prochazime text a pro kazde pismeno si do pole intervaly ulozime,
      kolik pismen se ma pred nim skrtat */
   for (i=0;i<delka;i++)
   {
     while (g[s][osmismerka[x][y]]==UNDEFINED) s=f[s];
     s=g[s][osmismerka[x][y]];
     x+=dx;y+=dy;
     intervaly[i]=o[s];
   }
   /* pomoci pole intervaly vyskrtame z pole nalezena slova */
   mez=delka;
   for (i=delka-1;i>=0;i--)
   {
     x-=dx;y-=dy;
     mez=min(mez,i-intervaly[i]);
     if (i>mez) skrt[x][y]=1;
   }
}

void skrtej(void)
{
   int i,j;

   for (i=0;i<n;i++) vyhledej(i,0,0,1,m);    /*skrtej sloupce zhora*/
   for (i=0;i<m;i++) vyhledej(0,i,1,0,n);    /*skrtej radky zleva*/
   /* a trocha cerne magie pro diagonaly */
   for (i=-m+1;i<n;i++) lookup(i>0?i:0,i>0?0:(-i),1,1,
                                min(n-(i>0?i:0),m-(i>0?0:(-i))));
   for (i=0;i<m+n-1;i++) lookup(i<m?0:(i-m-1),i<m?i:(m-1),1,-1,
                                min(n-(i<m?0:(i-m-1)),1+(i<m?i:(m-1))));
   /* vypiseme co zbylo */
   for (i=0;i<m;i++)
     for (j=0;j<n;j++) if (skrt[j][i]==0) putc(osmismerka[j][i],stdout);
   puts("");
}

void nacti_osmismerku(char *jmeno)
{
   FILE *fin;
   int i,j;
   char buf[80];

   fin=fopen(jmeno,"r");
   fscanf(fin,"%d%d",&m,&n);
   fgets(buf,80,fin);
   for (i=0;i<m;i++)
     {
        for (j=0;j<n;j++) osmismerka[j][i]=fgetc(fin);
        fgets(buf,80,fin);
     }
   fclose(fin);
   bzero(skrt,sizeof(skrt)); /* nulovani ... */
}

int main(void)
{
   vytvor_automat("slovnik.in");
   nacti_osmismerku("osm.in");
   skrtej();
   return 0;
}