AlgoProg :: MeetUp Contest #5

uses
    SysUtils, Math;

const
    task = 'rayhan';

var
    i, n, ls : longint;
    s, t : string;
    ct, ck : char;
    a : array['a'..'z', 'a'..'z'] of boolean;

procedure fail;
begin
    write('NO');
    halt(0);
end;

begin
    assign(input, task + '.in');
    assign(output, task + '.out');
    reset(input);
    rewrite(output);
    fillchar(a, sizeof(a), 0);
    readln(s);
    readln(n);
    for i := 1 to n do begin
        readln(t);
        ck := t[1];
        ct := t[2];
        a[ck][ct] := true;
        a[ct][ck] := true;
    end;
    ls := length(s);
    if odd(ls) then fail;
    i := 1;
    while i < ls do begin
        ck := s[i];
        ct := s[i + 1];
        inc(i, 2);
        if not a[ck][ct] then fail;
    end;
    write('YES');
end.