Problem: The city of Kyoto is well-known for its Chinese plan: streets are either North-South or East-West. Some streets are numbered, but most of them have real names.
Crossings are named after the two streets crossing there, e.g. Kawaramachi-Sanjo is the crossing of Kawaramachi street and Sanjo street. But there is a problem: which name should come first? At first the order seems quite arbitrary: one says Kawaramachi-Sanjo (North-South first) but Shijo-Kawaramachi (East-West first). With some experience, one realizes that actually there seems to be an "order" on the streets, for instance in the above Shijo is "stronger" than Kawaramachi, which in turn is "stronger" than Sanjo. One can use this order to deduce the names of other crossings.

You are given as input a list of known crossing names X-Y. Streets are either North-South or East-West, and only orthogonal streets may cross.

As your list is very incomplete, you start by completing it using the following rule:

* two streets A and B have equal strength if (1) to (3) are all true:
1. they both cross the same third street C in the input
2. there is no street D such that D-A and B-D appear in the input
3. there is no street E such that A-E and E-B appear in the input



We use this definition to extend our strength relation:

* A is stronger than B, when there is a sequence A = A1, A2, ..., An = B, with n at least 2,
where, for any i in 1 .. n-1, either Ai-Ai+1 is an input crossing or Ai and Ai+1 have equal strength.



Then you are asked whether some other possible crossing names X-Y are valid. You should answer affirmatively if you can infer the validity of a name, negatively if you cannot. Concretely:

* YES if you can infer that the two streets are orthogonal, and X is stronger than Y
* NO otherwise



Input

The input is a sequence of data sets, each of the form

>
>     N
>     Crossing1
>     ...
>     CrossingN
>     M
>     Question1
>     ...
>     QuestionM
>

Both Crossings and Questions are of the form

> X-Y

where X and Y are strings of alphanumerical characters, of lengths no more than 16. There is no white space, and case matters for alphabetical characters.
N and M are between 1 and 1000 inclusive, and there are no more than 200 streets in a data set.

The last data set is followed by a line containing a zero.

Output

The output for each data set should be composed of M+1 lines, the first one containing the number of streets in the Crossing part of the input, followed by the answers to each question, either YES or NO without any spaces.

Example

Input

7
Shijo-Kawaramachi
Karasuma-Imadegawa
Kawaramachi-Imadegawa
Nishioji-Shijo
Karasuma-Gojo
Torimaru-Rokujo
Rokujo-Karasuma
6
Shijo-Karasuma
Imadegawa-Nishioji
Nishioji-Gojo
Shijo-Torimaru
Torimaru-Gojo
Shijo-Kawabata
4
1jo-Midosuji
Midosuji-2jo
2jo-Omotesando
Omotesando-1jo
4
Midosuji-1jo
1jo-Midosuji
Midosuji-Omotesando
1jo-1jo
0


Output

8
YES
NO
YES
NO
YES
NO
4
YES
YES
NO
NO

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;

using pii = pair<int,int>;
using ll = long long;
#define rep(i, j) for(int i=0; i < (int)(j); i++)
#define repeat(i, j, k) for(int i = (j); i < (int)(k); i++)
#define all(v) v.begin(),v.end()
#define debug(x) cerr << #x << " : " << x << endl

template<class T> bool set_min(T &a, const T &b) { return a > b  ? a = b, true : false; }
template<class T> bool set_max(T &a, const T &b) { return a < b  ? a = b, true : false; }
// vector
template<class T> istream& operator >> (istream &is , vector<T> &v) { for(T &a : v) is >> a; return is; }
template<class T> ostream& operator << (ostream &os , const vector<T> &v) { for(const T &t : v) os << "\t" << t; return os << endl; }
// pair
template<class T, class U> ostream& operator << (ostream &os , const pair<T, U> &v) { return os << "<" << v.first << ", " << v.second << ">"; }

const int INF = 1 << 30;
const ll INFL = 1LL << 60;

vector<string> split(const string &s, char delim) {
    vector<int> pos;
    pos.push_back(-1);
    rep(i, s.size()) if(s[i] == delim) pos.push_back(i);
    pos.push_back(s.size());
    vector<string> res;
    rep(i, pos.size() - 1) res.push_back(s.substr(pos[i] + 1, pos[i + 1] - pos[i] - 1));
    return res;
}

tuple<string, string> input() {
    string s; cin >> s;
    auto a = split(s, '-');
    assert(a.size() == 2);
    return make_tuple(a[0], a[1]);
}

class Solver {
  public:
    void dfs(int now, int color, vector<int> &coloring, const vector<vector<int>> &G) {
        coloring[now] = color;
        rep(nxt, G.size()) {
            if((G[nxt][now] or G[now][nxt]) and coloring[nxt] < 0) {
                dfs(nxt, (color + 1) % 2, coloring, G);
            }
        }
    }
    bool solve() {
        int N;
        map<string, int> road_map;    
        int road_cnt = 0;
        cin >> N;
        if(N == 0) return false;
        vector<pii> E(N);
        rep(i, N) {
            string a, b;            
            tie(a, b) = input();
            if(not road_map.count(a)) road_map[a] = road_cnt++;
            if(not road_map.count(b)) road_map[b] = road_cnt++;
            int ai = road_map[a], bi = road_map[b];
            E[i] = pii(ai, bi);
        }
        vector<vector<int>> G(road_cnt, vector<int>(road_cnt));
        rep(i, N) G[E[i].first][E[i].second] = 1;
        vector<int> color(road_cnt, -1);
        rep(i, road_cnt) if(color[i] < 0) dfs(i, 0, color, G);
        rep(a, road_cnt) {
            rep(b, road_cnt) {
                if(a == b) continue;
                int flg[3];
                flg[0] = 0;
                flg[1] = flg[2] = 1;
                rep(c, road_cnt) if(c != a and c != b) {
                    // A???B????????¨?????????????????\?????????????????????????????????C????????????
                    flg[0] |= (G[a][c] and G[b][c]) or 
                              (G[a][c] and G[c][b]) or
                              (G[c][a] and G[b][c]) or
                              (G[c][a] and G[c][b]);
                    // D-A??¨B-D?????\?????????????????????????????????D????????????
                    flg[1] &= not (G[c][a] and G[b][c]);
                    // A-E??¨E-B?????\?????????????????????????????????E????????????
                    flg[2] &= not (G[a][c] and G[c][b]);
                }
                if(flg[0] and flg[1] and flg[2]) {
                    G[a][b] = 1;
                    G[b][a] = 1;
                }
            }
        }
        rep(k, road_cnt) {
            rep(i, road_cnt) {
                rep(j, road_cnt) {
                    if(G[i][k] and G[k][j]) G[i][j] = 1;
                }
            }
        }
         // debug(G);
         // debug(color);
        cout << road_cnt << endl;
        int M; cin >> M;
        rep(m, M) {
            string a, b;
            tie(a, b) = input();
            if(not road_map.count(a) or not road_map.count(b)) {
                cout << "NO" << endl;
                continue;
            }
            int ai = road_map[a], bi = road_map[b];
            bool ok = G[ai][bi];
            ok &= color[ai] != color[bi];
            cout << (ok ? "YES" : "NO") << endl;
        }
        
        return true;
    }
};

int main() {
    while(true) {
        Solver s;
        if(not s.solve()) break;
    }
    return 0;
}