#include <iostream>
#include <fstream>
#include <vector>
#include <map>

using namespace std;

long long matches = 0;
vector<map<char, vector<int>>> wordsByMap;
string words[4];

void checkCase(int a, int b, int c, int d) {
    string top = words[a];
    string bot = words[b];
    string left = words[c];
    string right = words[d];
    map<char, vector<int>> mapTop = wordsByMap[a];
    map<char, vector<int>> mapBot = wordsByMap[b];
    map<char, vector<int>> mapLeft = wordsByMap[c];
    map<char, vector<int>> mapRight = wordsByMap[d];
    vector<int> xCoordTop;
    vector<int> yCoordTop;
    for (auto &it1 : mapTop) {
        char topAt = it1.first;
        if (mapLeft.count(topAt) != 0) {
            auto it2 = mapLeft.find(topAt);
            for (int i : it1.second) {
                xCoordTop.push_back(i);
            }
            for (int i : it2->second) {
                yCoordTop.push_back(i);
            }
        }
    }
    vector<int> xCoordBot;
    vector<int> yCoordBot;
    for (auto &it1 : mapBot) {
        char botAt = it1.first;
        if (mapRight.count(botAt) != 0) {
            auto it2 = mapRight.find(botAt);
            for (int i : it1.second) {
                xCoordBot.push_back(i);
            }
            for (int i : it2->second) {
                yCoordBot.push_back(i);
            }
        }
    }
    for (unsigned int i = 0; i < xCoordTop.size(); ++i) {
        for (unsigned int j = 0; j < xCoordBot.size(); ++j) {
// Теперь, когда получили пару уголков
            for (auto k = static_cast<unsigned char>(xCoordTop[i] + 1); k < top.size(); ++k) {
                for (auto t = static_cast<unsigned char>(yCoordTop[i] + 1); t < left.size(); ++t) {
// Теперь мы имеем координаты кокретной точки, которая
// ниже верхнего слова и правее левого
                    if ((xCoordBot[j] != 0 && yCoordBot[j] != 0) &&
                        (((xCoordBot[j] + xCoordTop[i]) >= k)) &&
                        (((yCoordBot[j] + yCoordTop[i]) >= t))) {
                        if ((left.at(t) == bot.at(xCoordBot[j] + xCoordTop[i] - k))
                            && (top.at(k) == right.at(yCoordBot[j] + yCoordTop[i] - t))) {
                            matches += 2;
                        }
                    }
                }
            }
        }
    }
}

int main() {
    ifstream in("crosswords.in");
    ofstream out("crosswords.out");
    for (auto &word : words) {
        in >> word;
        map<char, vector<int>> tmp;
        for (int j = 0; j < word.length(); ++j) {
            tmp[word[j]].push_back(j);
        }
        wordsByMap.push_back(tmp);
    }
    // top bot left right
    // int olymp ifmo ramp
    // 0 3 1 2
    // ifmo ramp int olymp
    // 1 2 0 3
    checkCase(0, 1, 2, 3);
    checkCase(0, 1, 3, 2);
    checkCase(1, 0, 2, 3);
    checkCase(1, 0, 3, 2);

    checkCase(0, 2, 1, 3);
    checkCase(0, 2, 3, 1);
    checkCase(2, 0, 1, 3);
    checkCase(2, 0, 3, 1);

    checkCase(0, 3, 1, 2);
    checkCase(0, 3, 2, 1);
    checkCase(3, 0, 1, 2);
    checkCase(3, 0, 2, 1);
    out << matches;
    return 0;
}