type
    int = longint;
    bool = boolean;

const 
    ff = 'MATKHAU';
    fi = ff + '.INP';
    fo = ff + '.OUT';
    
var
    i, n: int;
    s: ansistring;
    c: bool;
    
function check(len: int): bool;
var i: int;
begin
    for i:=1 to n do
        if s[i] <> s[(i - 1) mod len + 1] then exit(false);
    exit(true);
end;
    
begin
    assign(input, fi); reset(input);
    assign(output, fo); rewrite(output);
    
    readln(s);
    n:=length(s);
    
    for i:=12 to n do
        if n mod i = 0 then
            if check(i) then begin
                c:=true;
                break;
            end;
    if c then write('Yes') else write('No');
    
    close(input); close(output);
end.