Go: package main

import "fmt"

var H, W int

type point struct {
	x, y int
}

func (p *point) add(q point) {
	p.x += q.x
	p.y += q.y
	if p.x < 0 {
		p.x += H
	}
	if p.y < 0 {
		p.y += W
	}
	p.x %= H
	p.y %= W
}

func isPalindrome(str string) bool {
	for i, j := 0, len(str)-1; i < j; i, j = i+1, j-1 {
		if str[i] != str[j] {
			return false
		}
	}
	return true
}

func magicSpel(arr []string) string {
	var ans string
	m := map[string]int{}
	for i := range arr {
		for j := range arr[i] {
			for _, d := range []point{{-1, -1}, {-1, 0}, {-1, 1}, {0, -1}, {0, 1}, {1, -1}, {1, 0}, {1, 1}} {
				cur := point{x: i, y: j}
				str := string(arr[cur.x][cur.y])
				cur.add(d)
				for i != cur.x || j != cur.y {
					str += string(arr[cur.x][cur.y])
					cur.add(d)
					if isPalindrome(str) {
						m[str] += 2
					} else {
						m[str]++
					}
				}
			}
		}
	}
	for s, v := range m {
		if 1 < v {
			if len(ans) < len(s) {
				ans = s
			} else if len(ans) == len(s) && s < ans {
				ans = s
			}
		}
	}

	if len(ans) == 0 {
		return "0"
	}

	return ans
}

func main() {
	for {
		fmt.Scan(&H, &W)
		if H == 0 && W == 0 {
			break
		}

		var arr []string

		for i := 0; i < H; i++ {
			var s string
			fmt.Scan(&s)
			arr = append(arr, s)
		}

		fmt.Println(magicSpel(arr))
	}
}

// 2 3
// ABC
// DEF

C++: #include <iostream>
#include <vector>
#include <algorithm>
#include <string>
#include <map>
using namespace std;
const int dy[] = {1, -1, 0, 0, 1, -1, 1, -1};
const int dx[] = {0, 0, 1, -1, 1, -1, -1, 1};
int h, w, sy, sx, max_size;
map<string, int> mp;
string table[15];
string str;
void solve(char ch)
{
	for(int i = 0; i < 8; i++)
	{
		int ny = sy;
		int nx = sx;
		str = "";
		while(1)
		{
			str += table[ny][nx];
			mp[str]++;
			if(mp[str] >= 2)
				max_size = max(max_size, (int)str.size());
			//printf("(%d, %d): %c\n", ny, nx, table[ny][nx]);
			int tmp_y = ny + dy[i];
			int tmp_x = nx + dx[i];
			if(tmp_y < 0) tmp_y = h - 1;
			if(tmp_x < 0) tmp_x = w - 1;
			if(tmp_y >= h) tmp_y = 0;
			if(tmp_x >= w) tmp_x = 0;
			ny = tmp_y;
			nx = tmp_x;
			if(tmp_y == sy && tmp_x == sx)
				break;
		}
		//cout << endl;
	}
}	
int main()
{
	cin.tie(0);
	ios::sync_with_stdio(false);
	while(cin >> h >> w, h | w)
	{
		mp.clear();
		str = "";
		max_size = 2;
		for(int i = 0; i < h; i++)
		{
			cin >> table[i];
		}
		for(int i = 0; i < h; i++)
		{
			for(int j = 0; j < w; j++)
			{
				sy = i; sx = j;
				solve(table[i][j]);
			}
		}
		bool flag = false;
		for(auto itr = mp.begin(); itr != mp.end(); itr++)
		{
			if(itr->second >= 2 && itr->first.size() == max_size)
			{
				flag = true;
				cout << itr->first << endl;
				break;
			}
		}
		if(!flag)
			cout << 0 << endl;
	}
	return 0;
}

C++: #include <iostream>
#include <map>
#include <vector>
#include <string>
#include <set>
#include <algorithm>
using namespace std;

// w := 幅, h := 高さ, len := 最も長い文字列の長さ
int w, h, len;
// memo[y][x] := (x,y) を調べたかどうか
bool memo[20][20];
// S := 登場した文字列
set<string> S;
// ans := 解の候補
vector<string> ans;

int dx[8] = {-1,-1,-1, 0, 0,+1,+1,+1};
int dy[8] = {-1, 0,+1,-1,+1,-1, 0,+1};

// memo の初期化
void clear_memo(){
	for(int y=0 ; y < h ; y++ ){
		for(int x=0 ; x < w ; x++ ){
			memo[y][x] = false;
		}
	}
}

void f(const vector<string>& v, int sx, int sy){
	
	for(int i=0 ; i < 8 ; i++ ){
		string s;
		clear_memo();
		memo[sy][sx] = true;
		s.push_back( v[sy][sx] );
		int mx = (sx + dx[i] + w) % w;
		int my = (sy + dy[i] + h) % h;
		while( true ){
			// すでに調べているとき
			if( memo[my][mx] ) break;
			memo[my][mx] = true;
			
			s.push_back( v[my][mx] );
			if( S.count( s ) ){ // 2回目以降の登場した文字列
				if( len <= s.size() ){
					len = s.size();
					ans.push_back( s );
				}
			}else{ // 初めてならsetに追加
				S.insert( s );
			}
			mx = (mx + dx[i] + w) % w;
			my = (my + dy[i] + h) % h;
		}
	}
}

string solve(const vector<string>& v){
	for(int y=0 ; y < h ; y++ ){
		for(int x=0 ; x < w ; x++ ){
			f(v,x,y);
		}
	}
	
	// 解がないとき
	if( ans.size() == 0 ){
		return "0";
	}
	vector<string> vs;
	for(int i=0 ; i < ans.size() ; i++ ){
		if( ans[i].size() == len ){
			vs.push_back( ans[i] );
		}
	}
	sort( vs.begin() , vs.end() );
	return vs[0];
}

int main(){
	while( cin >> h >> w , h || w ){
		// 初期化
		S.clear();
		ans.clear();
		len = 0;
		
		vector<string> v(h);
		for(int y=0 ; y < h ; y++ ){
			cin >> v[y];
		}
		string s = solve(v);
		cout << s << endl;
	}
}

C++: #include <map>
#include <vector>
#include <iostream>
#include <cstring>
using namespace std;
int m[29][29];
main(){
	string s,t;
	int h,w,i,j,x,y;
	for(;cin>>h>>w,h;cout<<s<<endl){
		vector<string>v;
		for(i=0;i<h;i++)cin>>s,v.push_back(s);
		s="0";
		map<string,int>M;
		for(i=0;i<h;i++)for(j=0;j<w;j++)for(x=-1;x<=1;x++)for(y=-1;y<=1;y++){
			if(x==0&&y==0)continue;
			memset(m,0,sizeof(m));
			int Y=i,X=j;
			t=v[Y][X],m[Y][X]=1;X=(X+x+w)%w,Y=(Y+y+h)%h;
			for(;!m[Y][X];X=(X+x+w)%w,Y=(Y+y+h)%h){
				t+=v[Y][X],m[Y][X]=1;
				if(++M[t]>1 && (s.size()<t.size()||(s.size()==t.size()&&s>t)))s=t;
			}
		}
	}
}

C++: #include<iostream>
#include<cstdio>
#include<string>
#include<cstring>
#include<algorithm>
#include<map>
#include<vector>
using namespace std;
bool vis[30][30];
char str[30][30];
vector<string>q;
int dir[8][2] = {0,1,0,-1,1,0,-1,0,1,-1,1,1,-1,1,-1,-1};
map<string,int>mp;
const int maxn = 1000010;
int chd[maxn][26];
int val[maxn];
string Ans;
int  sz,L;
void insert(string s){
    int l = s.length();
    int rt = 0;
    string ss = "";
    for(int i = 0; i < l; i++){
        int t = s[i] - 'A';
        ss += s[i];
        if(!chd[rt][t]){
            chd[rt][t] = ++sz;
        }
        rt = chd[rt][t];
        val[rt]++;
        if(val[rt] >= 2 ){
            if(i + 1 > L ){
                L = i + 1;
                Ans = ss;
            }else if(i + 1 == L){
                if(ss < Ans)  Ans = ss;
            }
        }
    }
}
int main(){
    int N,M;
    while(cin>>N>>M && N + M){
        memset(val,0,sizeof(val));
        memset(chd,0,sizeof(chd));

        for(int i = 0; i < N; i++){
            scanf("%s",str[i]);
        }

        Ans = "";
        sz = 0,L = 0;
        for(int i = 0; i < N; i++)
            for(int j = 0; j < M; j++){
                for(int k = 0; k < 8; k++){
                    memset(vis,0,sizeof(vis));
                    int x = i,y = j;
                    string s = "";
                    s += str[x][y];
                    vis[x][y] = true;
                    while(true){
                        x = ((x + dir[k][0]) % N + N) % N;
                        y = ((y + dir[k][1]) % M + M) % M;
                        if(vis[x][y]) break;
                        s += str[x][y];
                        vis[x][y] = true;
                    }
                    insert(s);
                }
            }
    if(Ans.length()<=1) puts("0");
    else
        cout<<Ans<<endl;
    }
    return 0;
}